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Preface 



This manual discusses the mechanics of using APL 
with the IBIVI 51 10 Computer. It is intended to 
provide the users of this system with information 
necessary to operate the system using the APL 



language 
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Chapter 1. Introducing the IBM 5110 



ABOUT THIS MANUAL 

This manual will show you how to operate the IBM 51 10 using the APL 
language. If you are not familiar with the APL language, you should do 
the suggested keying operations or examples on your 51 10 while reading 
the manual from cover to cover. If you are familiar with the APL 
language, you should read Chapters 1 and 2 to learn how to operate the 
51 10; however, you may then want to skip to Chapter 7. Not all of the 
features or functions of the APL language are covered in this manual. 
For more information about the 51 10 or the APL language, see the IBM 
5110 APL User's Guide, SA2 1-9302, or the IBM 5110 APL Reference 
Manual, SA2'\ -9303. 

This manual was written with the assumption that the 51 10 has been 
set up and checked out. If the 51 10 has not been set up, use the setup 
procedure in the IBM 51 10 Setup Procedure, SA21-9318, before 
continuing to read this manual. 



ABOUT THE APL LANGUAGE 

APL has many built-in functions that allow you to effectively solve your 
problems. However, if you need a special function to solve a problem, 
APL also allows you to define your own functions. The functions you 
define are similar to programs written in other computer languages. 

APL is a good language to experiment with; nothing you do from the 
keyboard can damage the 51 10, and the more you experiment, the more 
you will learn about APL. 



ABOUT THE SYSTEM 

The IBM 5110 Model 1 (Figure 1) is a computer designed to help you 
solve problems. The IBM 5110 Model 2 differs from the Model 1 in 
that the Model 2 does not have a built-in tape unit. The display screen 
and indicator lights communicate information to you, and the 
keyboard and switches allow you to control the operations the system 
will perform. 

Before you begin to use the 5110, you should become familiar with the 
keys and control panel. The control panel switches will be discussed 
later. Following is a brief description of the keys (Figure 2); how you 
use the keys will be discussed later. 
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Alphameric Keys 

The alpha keys are similar to those on a standard typewriter, except that 
there are no lowercase characters. In standard APL character mode, the 
alpha characters are all uppercase, even though they are in the lowercase 
position on the keys. Thus, you do not use the shift key ^^^B fo"" 
alpha characters. ^^^^ 

If you want to enter an upper shift character, you must hold down the 
shift key and then press the key to enter the character, just as you 
would to type an uppercase character on an ordinary typewriter. 

You can also enter lowercase alphabetic characters from the keyboard. 
How you enter lowercase alphabetic characters is discussed later in this 
chapter. 



Numeric Keys 

Either the top row of alphameric keys or the special calculator arrange- 
ment of numeric keys can be used to enter numbers. 



Operating Keys 

The black key labeled EXECUTE, the dark gray keys with the legend 
names CMD, ATTN, and HOLD, and the dark gray keys with the arrows 
are all special operating keys. The keys with the arrows and the space- 
bar, which is used to enter blank characters, automatically repeat the 
operation they perform when held down. 
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Figure 1. The 5110 Computer 
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APL System Command Keywords 

The words that are above the top row of numeric keys are system command 
keywords, which you can enter by holding down the CMD key and then 
pressing the key below the desired keyword. For example, to enter 
)LOAD, hold down CMD and press the 1 key. The system commands 
and their uses are discussed later, in Chapter 9. 

Also, notice the special character combinations engraved on the front of 
the alphabetic keys. If you have a combined APL/BASIC machine, there 
is also a BASIC statement keyword engraved above the special character 
combination on the front of the key. You can enter the special charac- 
ter combination by holding down the CMD key and then pressing the 
appropriate key. You will see how these special character combinations 
are used as you become familiar with the APL language. 




BASIC Statement Keyword 

APL Special Character Combination 



Arithmetic Function Keys 

The four keys to the right of the calculator arrangement of numeric keys 
are the arithmetic function keys. These keys are used to perform division, 
multiplication, subtraction, and addition. There are also keys on the 
alphameric keyboard that perform these functions. Notice that the -^ and 
X symbols are used for division and multiplication. 



GETTING STARTED 

Make sure the switches on your IBM 51 10 are set as follows: 

Switch Setting 

L32 64R32(5110only) 64 

BASIC/APL (combined machines only) APL 

DISPLAY REGISTER/NORMAL NORMAL 

If your 51 10 has the BASIC/APL switch, it can execute both BASIC and 
APL language statements. The language to be used is selected by the user 
before power up or during the restart sequence. 

Make sure your 5110 is plugged in and turn power on. If power is 
already on, press RESTART and wait about 20 seconds. During this 
time, the 5110 performs internal checks to make sure it is operating 
correctly. 

After 30 seconds, if the message CLEAR WS has not appeared in the 
lower left corner of the display screen, an error has been detected during 
the internal checks. In this case, press RESTART. The 51 10 will per- 
form the internal checks again. If the CLEAR WS message does not 
appear after several tries, call your service representative. 
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Special Operating Keys 
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Alphameric Keys 



Numeric Keys 



ENTERING AND DISPLAYING DATA 

First, let's look at the display screen. Normally, information displayed 
by APL begins at the left edge of the display screen, and the input from 
the keyboard is indented when it is displayed. The small horizontal 
flashing line indicates the position on the line where the next input from 
the keyboard will be displayed. This flashing line is called the cursor. 
The cursor moves as each character is displayed. 

The display screen can contain up to 16 lines of data. Each line has 64 
positions across the display screen. The bottom two lines are used to 
display input, and the remaining 14 lines contain a history of the opera- 
tions you have performed. 



Line 

Numbers 
15 
14 
13 
12 
11 
10 

9 

8 

7 

6 

5 

4 

3 

2 

1 





64 Character Positions 



CLEAR WS 



This message is displayed when your 51 10 
is ready for use. 

Cursor (flashing line)— display of keyboard 
input normally begins indented six positions 
on line 1. 
^ 



There are 128 positions available for input from the keyboard; that is, 
there are 64 positions available on line 1 and 64 positions on line 0. When 
position 64 of line 1 is used as you enter data from the keyboard, the 
cursor moves to the left margin of line 0. The cursor is then at position 
65 of the possible 128 positions available for input. 
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Now let's enter some data into the 5110 using the numeric keyboard 
and the arithmetic function keys. Press the following keys: 



RDCD 



Notice that the characters are displayed as each key is pressed. To 
process the data you just keyed, you must press the EXECUTE key. 
Press the EXECUTE key now. 

The display screen will look like this: 



CLEAR UIS 
2-V-3 

-.J 



Notice that the expression you entered, 2+3, appears indented on the 
display screen; the answer, 5, appears on the left margin of the next line; 
and the cursor appears on the next line. The information displayed 
moves up each time the EXECUTE key is pressed. 

Enter and execute the expression 125+75 by pressing the following keys: 



□ QQDQCD 



The display screen will look like this: 



CLEAlx 


ws 




2 + 3 


!=•; 






125i-7'5 


2 




V 





The appearance of your display can be changed by the REVERSE 
DISPLAY and L32 64 R32 switches on the control panel. The 
REVERSE DISPLAY switch allows you to change from black characters 
on a white background to white characters on a black background and 
vice versa. Change the switch and select the type of display you feel 
most comfortable with. You may have to adjust the brightness control 
as you change from one to the other. 

Now, watch the display as you set the L32 64 R32 switch to the L32 
position. With the switch in this position, the leftmost 32 characters on 
each line are displayed with an extra space between each character. The 
rightmost 32 characters on each line will not be displayed. With the 
switch in the L32 position, your display should look like this: 



{;: 1... EAR w s 



xJ ■•'• ( ,.l 



2 



In the R32 position, the rightmost 32 characters are displayed with a 
space between each character. Now, set the switch in the R32 position 
and notice that the display is blank because there were no characters in 
the rightmost 32 positions of the display screen. 

Return the switch to the 64 position, and notice that all characters are 
displayed without the space in between. For exercises in the remainder 
of this book, keep the switch in the 64 position. 

There are two keys above the numeric keys that move the display line 
up or down. The up arrow ^W (scroll up key) moves the display up 




one line and the down arrow ^W (scroll down key) moves the display 



down one line. As the lines are moved up or down, the displayed 
information on any line that is moved off the display screen is lost. Also, 
the cursor returns to position 7 on line 1 when either scroll key is used. 
Either key continues to move the display lines if it is held down. Now 
use the down arrow to move the display down one line. 

The display will look like this: 



CLEAR 


ws 


!::• 


2f3 


...1 


125jJ^ 


20 -^ 




V 





The value 200 is now on the input line and 
can be used as input. Notice that Input can 
begin in any position on the line. 
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Now press the following keys: 



□ QCZO 




The display screen will look like this: 



CLEAR WS 

2-^3 
5 

;l.25f-7!5 
20 +50 
250 



Now that you are familiar with the display screen, only the line or lines 
being discussed will be shown. 



CORRECTING KEYING ERRORS 

The IBM 5110 has a number of very useful features that allow you to 
correct errors made when data was entered. On a line-by-line basis, at 
any time, you can: 

• Replace a character 

• Delete a character 

• Insert a character 

Replacing a Character 

To replace a character, move the cursor with the backspace key ^4 



or forward space 



key, until the cursor is positioned at the 



incorrect character. The cursor moves one character space in the 
direction of the arrow each time the appropriate key is pressed. These 
keys continue to move the cursor if they are held down. When the cursor 
is at the incorrect character, you replace the incorrect character by 
simply keying the correct character. 



10 



For example, you want to do the problem 22+12. But you press the 
following keys: 



CDQDQD 



The display screen looks like this: 



22+:l.;l 



To correct the error, the cursor must be moved back one position (under 
the second 1 ) so that the character can be rekeyed. Now press the 
backspace ^^ key one time. Note that the cursor is replaced by a 

flashing character. The flashing character serves the same function as the 
cursor; it indicates the position on the line where the next input from the 
keyboard will be displayed. Now to correct the error and execute the 
problem, press the following keys: 



Deleting a Character 

To delete a character, you also use the backspace key or forward 

space key ^^ to move the cursor. Once the cursor is in the position 

of the character to be deleted (the character is flashing), hold down the 
CMD key and press the backspace key once. The character is then deleted 
and any characters to the right are shifted one position to the left to 
close up the space left by the deletion. 
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For example, you want to do the problem 13+45. But you press the 
following keys: 



QDHH 



The display screen looks like this: 



1. 2 3 Mi 5.... 



Press the backspace key and move the cursor (flashing character) back 
to the 2. Look at the labels that appear above the backspace and 
forward space keys: DELETE and INSERT. To delete the 2, hold down the 
CMD key while you press ^g once. 



The display screen looks like this: 



:l.3+M-5 

\ 

This character is flashing. 



Now press the EXECUTE key to execute the problem. 

Inserting a Character 

To insert a character, position the cursor using the backspace key 

or forward space ^J key; then hold down the CMD key and press 

the forward space ^fe key once. This operation moves the flashing 

character (and all other characters to the right of it) one position to the 
right, creating the space you need to insert one character. The cursor is 
not moved. Now, to insert the character, simply press the desired key. 



12 



For example, you want to do the problem 123x6. But you press the 
following keys: 



□ QQQ 



The display screen looks like this: 



13x6. 



To correct the error, press the backspace key and move the cursor 
(flashing character) back to the 3. Look at the labels that appear above 
the backspace and forward space keys: DELETE and INSERT. To perform 
the insert function, with the cursor positioned at the 3, hold down the 
CMD key while you press ^W once. 



The display screen looks like this: 



.:> A <:) 



Now to correct the keying error and execute the problem, press the 
following keys: 



Q 
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There is one more way to correct a keying error. If you nnake several 
errors part way through the line, you can backspace the cursor to the 
character following the last correct character and then press the ATTN 
(attention) key. Everything from the cursor position to the end of the 
input line will be cleared from the display. 

Since the data from the input line is not processed until the EXECUTE 
key is pressed, you can visually verify any input before it is processed. 
However, if you do press the EXECUTE key before you notice a 
mistake, you can simply enter the input again or you can use the down 
arrow ^^ (scroll down key) to move the input back down to the 

input line to correct it. Either way, you must press the EXECUTE key 
again. 

For example, you want to do the problem 135+280, but you enter and 
execute 134+280. The display screen looks like this: 



13'+ + 280 



illM- 



To correct the input, press the down arrow three times to clear 

the result from the screen. The display screen now looks like this: 

13II- + 2B0 

Then press the up arrow ^W once to move the original input back 
up to the first input line so that it can be corrected. 
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ENTERING LOWERCASE ALPHABETIC CHARACTERS 

Although only the standard APL alphabetic characters are shown on 
the 51 10 keyboard, you can enter lowercase alphabetic characters by 
changing the 51 10 to lowercase character mode. One way to change 
the 51 10 to lowercase character mode is to press the NifHI key (the 



characters HOLD are displayed in the lower left corner) and then hold 



down the shift IBB key and press the scroll down ■■ key. The 



51 10 is now in lowercase character mode. For example, press the 
key. The display screen looks like this: 



Now, hold down the shift j^^^B key and press the Bh '^^y- The 
display screen looks like this: 



a A 



IL 



Finally, hold down the command HH^H^^ey and press the BH key. 
The display screen looks like this: 

aAo! 



In this example, you are not going to execute the data just entered from 
the keyboard because you will get an error. Instead, press the scroll up 
key once to remove the data from the input line. Now, to 



return the 51 10 to the standard APL character mode, press the 
key and then hold down the shift | key and press the scroll up 

key. The 5110 is now in standard APL character mode. 



Note: See Console Control in the IBM 51 10 APL User's Guide, 
SA21-9302, for more information on how to enter lowercase characters. 
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From this point on, we will discuss the APL language and use examples 
in the following format to illustrate what we are discussing. You enter 
the expressions that are indented. The results displayed on your 51 10 
should be the same as the results shown in this manual. 



EXAMPLES: 



ov'i -^ Expressions To Be Entered 

Results 



Remember, the data you key is not processed until 
the EXECUTE key is pressed. 
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Chapter 2. introducing the APL Language 



TYPES OF FUNCTIONS IN APL 

There are two types of functions in APL: user-defined functions 
(programs) and those that are built into the APL language. The APL 
built-in functions are denoted by special symbols. User-defined 
functions are discussed later, in Chapter 7. 

The built-in functions operate on data supplied, called arguments. 
For example: 



2-1-3 

t 

Right Argument 
Built-in Function (addition) 
Left Argument 



ADDITION, SUBTRACTION, MULTIPLICATION, AND DIVISION 



E)R 



Machines with APL Only 



Combined Machines 



Alphameric Keys Arithmetic Function Keys 



Four commonly used built-in functions (+ - x ■^) perform the normal 
arithmetic operations when they are used. These symbols are located 
on the top row of the alphameric keys and also to the right of the 
numeric keys. 
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EXAMPLES: 



3 + ^j ^ Add 3 and 6. 

V 

3 X 6 ■< Multiply 3 times 6. 

18 

8 -■<+ ^^....^^ 
14- j;>» The right argument is subtracted from the left argument. 

^ ^_ii;;;;8-'-''^^ 

'I- "^ — ~~ The high horizontal bar is the negative sign. Compare it 

with the minus which is the symbol for subtraction; the 
negative sign appears near the top of the character instead 
of on the center line. 



8vii 
1.1.-8 




The left argument is divided by the right argument. 



.5 



As you have seen in the example, the negative sign is different from the 
minus. When you are doing arithmetic operations in AP L, do not use 
the minus to represent negative numbers or the negative f - | sign for 
a subtract operation. Li_J 



Problems: Using Addition, Subtraction, Multiplication, and Division 

1 . Find the total number of cars that a dealer sold during one week if 
his daily sales were 3, 5, 2, 6, 7, 3 and 4. 

2. Find the net number of cars removed from the same dealer's lot if 
20 people had trade-ins. 

3. Find the dealer's average profit per car if he made a total profit of 
$2700 for the sales in problem 1 . 

4. Find the dealer's total earnings if he made $20 on each car sold. 



18 



Possible Solutions 
Problem 1: 



2 "»• -5 •*■ 2 i- 6 i- 7 T- 3 •*• M- 
30 



Problem 2: 



3 0-20 

:i. 



Problem 3: 



270av-30 
9 



Problem 4: 



20x30 
60 



ANOTHER ARITHMETIC FUNCTION-RAISING A NUMBER 
TO A POWER 



d) 



Another arithmetic function that you are probably familiar with is 
raising a number to a power. In APL, you use the * function to raise 
the left argument to the power specified by the right argument. 



EXAMPLES: 



3*2 -* 3 raised to the second power. 

.•:•)( 3 -• 2 raised to the third power. 
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Finding the Root of a Number 

You can use the power function * to find the root of a number. To do 
this, you simply raise the number to the power 1-^n, where n is the root 
you want to find. 



EXAIVIPLES: 



"+«( .1.V-2) -*■ 
'I « . !^ 



eoKi:-3) 



The square root of 4, 

Another way to enter the instruction to find a 
square root of a number (.5 is the same as 1-^2). 

The cube root of 8. 



STORING DATA IN THE 5110 FOR LATER USE 



CD 



You can store data, either direct input that you enter from the l<eyboard 
or the result of a calculation. These stored items are called variables. 
Each variable has a name associated with it. Whenever you use the name of a 
variable, APL supplies the value associated with that name. A variable 
name can be up to 77 characters long (with no blanks); the first 
character must be alphabetic; the remaining characters can be any 
combination of alphabetic and numeric characters. It is good practice 
to use names that represent the data you are storing. For example, if 
you want to store a value that is the area of a rectangle you might use 
the name AREA; or if you want to store some sales data, you might use 
the name SALES. 

You create a variable by assigning the data to a name. To assign a value 
to a name, you use the assignment arrow <-. The value to the right of 
the ^ is assigned to the name to the left of the ^ . 



20 



EXAMPLES: 



99, ^5 



99£ 



PRICE<-99,50 — 
SALEB^PRICExlO 

PRici;: 



SALES 




After you press the EXECUTE key, you 
have created a variable named PRICE 
with a value of 99.50. 

The result of a calculation can also be 
assigned to a variable. 

If you want to know the current value of 
a variable, you simply enter the name of 
the variable. 



86 . 75 



96.75 



PR3:CE^~e6.75-H 
PRICE 

PRICE^i-PRICEMO 
PRICE 



■ You can change the value of a variable 
the same way you assigned the original 
value. 

■You can also use the variable and change 
its value in the same instruction. 



C OS Tv- SALES 
VALUE ERROR-- 



COS Tv-S ALES 



You cannot use a name as a variable if 
it does not have a value assigned to it. 

The error message indicates why the 
instruction failed. 



The caret (a) indicates where the 
' instruction failed. 

Note: Do not be concerned at this time 
about the error message that is displayed; 
all of the 51 10 APL error messages and 
suggested user's responses are described 
in the /BM 5110 APL Reference Manual, 
SA21-9303. 



PERFORMING SEVERAL FUNCTIONS IN THE SAME EXPRESSION 

In the preceding examples, only one arithmetic function was used in 
each example. However, you are not restricted to writing expressions 
with only one function. Any number of functions can occur in the 
same instruction. As soon as you use more than one function, however, 
you must be concerned about the order in which they are used, /n APL, 
the rightmost function in any expression is executed first, then the next 
rightmost, and so on. 
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EXAMPLES: 

Order of execution is right to left. 
3 X 2 + 1+ -« 4 is added to 2, and that result is multiplied by 3. 

:l.e 

M+3 X 2 -• 3 is multiplied by 2, and that result is added to 4. 

Remember that an APL function uses as its right 
argument the result of the expression to its right. 



SPECIFYING THE ORDER OF EXECUTION-USING PARENTHESES 



In APL, parentheses are used the same way as they are in conventional 
arithmetic: the expressions inside the parentheses are executed before 
the expressions immediately outside them. 



EXAMPLES: 




The expression 3x2 is evaluated first and the 
result is added to 4. 

The expression 4+3 is evaluated first and the 
result is multiplied by 2. 



Remember, the rule of the order of execution 
is from right to left with the expressions in 
parentheses resolved first and from right to 
left as they are encountered. 



USING STRINGS OF NUMBERS AND TABLES 

A powerful feature of APL is the way it handles strings and tables of data. 
So far, you have used APL with only single numbers (called scalars): but 
APL also works with strings of numbers (vectors) and tables (matrices). 
The functions you have performed using single numbers are simply 
extended to each number in a string or a table. For example, if you have 
a string of numbers assigned to a variable named SALES, you can add 2 
to each number in the string by simply entering 2+SALES. 
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Using APL with Strings of Numbers (Vectors) 

A string of numbers is called a vector. When you enter a string of numbers, 
there must be at least one blank between each number; each number is 
called an element of the vector. 



EXAMPLES: 



1. 'l-'+ 2 9 35 •* You have entered a five-element 

1 M'+ 2 9 35 vector (a string of five numbers). 

STRINGf-IM'l 16 39 2 

ST R 1 NG ■ A vector can be assigned to a 

I'-lM- 1.6 39 2 variable name. 

BALES^-:l.2!5 220 316 90 

SALES A 1 ** Each element (number) in the 

1 2 5 2 2 3 .1. 6 9 vector can be operated on by 

a single number. 

SALES Note that the value of SALES 

I'Z'Ti 220 3:1.6 90 has not changed. 

PRICED-, 50 :i. .00 .75 :l. . :i. 

TOTALfSALESx PRICE 



TOTAL i 



Each element in a vector can be 



62.5 220 237 99 operated on by the 

corresponding element in 
another vector with the same 
number of elements. 
1 2 "iv-i-l- 5 6 

5 1 1 ^^_IIi:==^ There must be at least one 




12'l- v'l-56 -* — ' blank between the elements 

5b of the vector, or the result 

will be different. 

1 '.:■:'. 3 i- '+ 5 -* You cannot use two vectors 

... I::: N G T II E R R [.] R that do not have the same 



"> 



'1^ 5 number of elements unless 

one of the arguments is a 
single number (single element). 
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Problenis: Using Strings of Numbers 

1 . Find the squares of the numbers from 1 to 5. 

2. Find the squares, cubes, and fourth powers of the numbers 2 and 3. 

3. A small mutual fund broker specializes in five funds. He wants to 
know how much of each fund he had sold at the close of the day. 
By 4:00 PM, he had sold $1500, $3200, $1200, $2300, and $2400, 
respectively, of the five funds. In the last hour of the day, he sold 
$100, $500, $300, $200 and $0 of the respective funds. Write a 
single APL statement to determine his closing sales figures for each 
fund. 

4. The five funds in problem 3 sold for $7.30, $1 1.58, $3.45, $2.17 
and $5.56 per share. How many shares of each fund were sold? 

5. The broker receives the following percentages of commission on the 
five funds: 3.25, 2.5, 3.0, 3.75 and 3.5. How much did he earn 
from each fund today? What are his total earnings for the day? 

Possible Solutions 
Problem 1 : 

1 2 3 M- 5«2 



Problem 2: 




.-, ■ 

..J ■ 
8 27 


3it2 
3«3 


..•J ■ 
16 81 


3^^i|- 


or 




2^<-: 

i|- 8 16 

3^t: 

9 27 81 


2 3 M- 
2 3 'I- 



24 



Problem 3: 



1.500 3200 :l.200 2300 2i|0 Of 1 500 300 200 
160 37 1.50 25 2>-lOO 



Problem 4: 



1600 3700 :l.500 2500 2i|-0 n:-7 . 30 
2 :l 9 . 1 8 3 ;l. 9 . 52 M.3i|- . 78 1 1. 52 .1 M-3 :l. . 65 



li .58 3.II-5 



7 5.56 



Problem 5: 



k: ■•••, r; 



160 370 150 25 2i|-0 x . 0325 .0250 .0300 . 03"?l5 
92 . 5 M-5 93 . 75 8i-l- 

52 . ^92 . 5 0tI|-5 . + 93 . 75-fB'l- . 

-,:)6 / . l;!b 



Using APL with Tables of Numbers (Matrices) 



A table of numbers is sometimes called a matrix. The numbers in the 
matrix are arranged in rows and columns; each number is called an 
element of the matrix. 





2 
7 


3 
8 


pU 


Diumn 


1 

6 


4 
9 


5 
10 




11 


12 


13 


14 


15 










t 







Row 

An individual element in row 3, 
column 4 of the matrix. 



You can use the reshape p function to create matrices. The left argu- 
ment specifies the number of rows and columns, and the right argument 
specifies the data or variable name for the data to be placed in the matrix. 
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EXAMPLES: 



i.|. 



i.|. 




TABLIi;j-2 
TABLE 



6p: 





VEC 




MAT 




MAT 


1 2 


3 


7 8 


9 



TORM 2 3 "+ 15 6 
RXXf-3 3 p VECTOR 

RIX t 



GU 
GU 



RfMp VECTOR 

R t 



The first number in the left argument 
specifies the number of rows; the second 
number specifies the number of columns. 

The right argument specifies the values to 
be placed element by element into the 
rows of the matrix. 

There must be a blank between the 
numbers specifying rows and columns. 



If there are not enough elements in the 
right argument to fill the matrix, the 
elements are repeated. 



B 9 1.0 l.:i. :i.2 

If there are more elements in the right 
— argument than are required to fill the 
matrix, only the first (leftmost) elements 
are used. 



The reshape p function can also be used 
to create a vector. 



The number of elements in the vector. 



3 'I- 



I :l. 



\ 



12 :l. 



MATRI.X-MO 

2 :l.3 
5 16 
8 19 

numbe: 

EXAM 

EXAM 
7 8 
11 

3 I'i 



Each element in the matrix can be operated 
on by a single number (remember, the 
value of MATRIX is not changed). 



RS<"1 
PLES^- 
PLEB 



2 3 'I- 5 6 7 8 
3 3pNUMBERB*-5 



KI;;.l:)U 
REBU 
9 11 
■5 17 
:l 23 



..,TB<"i;: 
L.TB 



XAMP 



::b*matr:i:x 



9 

Remember that APL executes an 
expression from right to left— the 
result of NUMBERS+5 is used as 
the right argument for the reshape 
p function. 



-Each element in a matrix can be operated 
on by the corresponding element in another 
matrix of the same shape. 
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EXAMPLES— continued 



LESSf-2 2 p NUMBERS 

LESS 
1 2 
3 ^■ 

MAT R:I: XX NUMBERS-^ — 
Rh'iiNK ERROR 

MAT R:i: XX NUMBERS 

A 

MAT R:i: XX LESS-" 

LENGTH ERROR 

MAT R;i: XX LESS 



■A matrix and a vector 

or 

two matrices that do not have 
the same shape (number of rows 
and columns) cannot be used 
unless one of the arguments is 
a single number. 



REFERRING ONLY TO CERTAIN NUMBERS IN A STRING OR TABLE 
OF NUMBERS (INDEXING) 



Indexing is a way to refer to only certain elennents in a string or table 
by specifying the position of the element you want. The numbers you 
use to specify the positions of the elements are called index numbers. 
These index numbers are enclosed in brackets [ ] following the vector 
or matrix to which they apply. 



EXAMPLES: 



TEMPf-6e 7i|- 78 65 80 85 72 

r e; m p \: 2 1 



7i.|. 

TEMP 1:3 :l. 2::i 
78 68 7M- ♦ 



TEMPi::2::ivTEMPr:3 :i. 2::i 
:i.i:?i2 :i.>i-2 m-8 * 



tempi:7::m-88-. 

TEMP 
68 7M- 78 65 8 85 88 

tempi: 3 6:h-7 0. 
tempi: 3 6:i 

7 7 



You can refer to a single 
element. 

You can refer to several 
elements. Notice that the 
elements are displayed in 
the order in which you 
indexed them. 

■ You can index and use 
other functions in the 
same expression. 



-You can change a single 
element of a vector. 



•You can also change several 
elements. 
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EXAMPLES-continued 



TEMP 1:5 :i. ::h- 3256 
TEMP ''— ' 

56 ?'l- 70 65 32 70 08- 



Notice that the new values 
are assigned in the same order 
as the index numbers. 

For a matrix, you need 
an index number for the 
rows and an index number 
for the columns— these 
numbers are separated 
by a semicolon. 



T:i:MES^-3 3r:>NUMBERS-^ 
TIMES 



J 2 3 

M- 5 6 
7 B 9 



8 9 
1 2 

8 9 




T:i:MESi::2;2:i 
t:i:megi:;3:2 3:1 ^ 
t:i:mesi::i; :i. 2::i 
t:i;mesi::2 3; 2 3:1 



Remember, we have previously 
assigned a value to NUMBERS. 



Left side of the ; specifies 
the row(s). 

Right side of the ; specifies 
the column(s). 

You can refer to a single 
element 

or 

you can refer to several 
elements. In this case, you 
have referred to the second 
and third elements in the 
third row. 

- Notice that when you refer 
to more than one row and 
more than one column, your 
result is a matrix. 
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EXAMPLES-continued 



■n:MESi:;2rj 

•■!• 5 6 

t:i:mesi:: ;3:i 

3 6 9^>_ i 



1 3 
i|- 6 
7 9 




TiHESi::; :i. 3::i 



If you do not specify a 
column, you get the whole 
row. 

If you do not specify a row, 
you get the whole column. 

These values (the third 
column) are displayed 
horizontally, because they 
are a string of numbers 
(vector). 

Note: Even when you select 
entire rows or columns, the 
semicolon is still required to 
make it clear whether the 
index number is for the rows 
or columns. 
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t:i;mesi::2; :i.::ixt:i;mesi::3;3::i- 



TiMEBi:::; 


^;2::h-()-^ 


T:mES 




1 2 3 




'I- 6 




7 Q 9 




TIMES!::: 


1. ; :l.::h-2*-3 


t:i:mesi::: 


1. ; :i. ::i 



You can index and use 
other functions in the 
same expression. 

■You can change the value of 
elements in a matrix. 



YOU ARE NOT LIMITED TO USING ONLY NUMBERS 



s 



Although the examples so far have used only numeric data, APL also 
works with character data. Character data, for example, can be used 
for headings on a table or to create a list of names. When you enter 
character data, you must enclose the data in single quote characters ('). 
These single quote characters indicate that the data is character data and 
is not a variable name, a number, or a function. When character data is 
displayed, the single quote marks do not appear. 

Character data, like numeric data, can be a single character (scalar), a 
string of characters (vector), or a table of characters (matrix). Unlike 
numeric data, when you have a character vector or matrix, each character 
is a separate element and is not separated from the other elements by a 
blank. In fact, a blank in the character data is also a character (blank 
character). 
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EXAMPLES: 



A 

ABC 

2*3 




NUMBERS- '•1-56 
■ :l.23' ^NUMBER 
l\ D M A :i: N E. R R R 



• :l.23'vNUMBER 

A 



Single character 
(scalar). 

String of three 
characters (three- 
elennent vector). 

This expression does 
not yield a result of 
5, because the values 
are characters, not 
nunnbers. 



You cannot add 
character data and 
numeric data. 



' DON ■ ' r DO THAT * 
DON'T DO THAT 

r H A N l< S i" ' Y U A R E. W E. L C M E 

THANKS 
YOU ARE WELCOME 



To place a quote within 
the character string, 
you must use a pair 
of quotes. 

"Character data can be 
assigned to a variable 
name. 



SAM 
JOHN 
JACK 
TOM 

JOHN 
JOHN 



I T" 

NAMES<- 'SAM \JOHN JACK TOM ^ 

M A r R :i: x n ^ ■■ 'i- i-i- p n a m i:;: s -^ 

MATRIXN 



NAMES i: 5 6 7 S:! 

matr:i:xn!::2;:i 



Blank characters. 

Create a character 
matrix, each row 
represents a name. 



■Indexing works with 
character data also. 



So far, you have used APL with some common arithmetic functions. 
You have also seen how APL worl<s with scalars (single data items), 
vectors (strings of data), and matrices (tables of data). However, you 
are not limited to just the functions we have discussed so far. In the 
following chapters, you will be introduced to more things you can do 
with APL. 
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Chapter 3. APL Functions That Require One Argument 



In this chapter you will use some APL functions to do the following: 

• Determine the whole numbers nearest a fraction. 

• Sort a vector into ascending or descending order. 

• Generate a random number. 

• Find the shape of an existing variable. 

There are additional APL functions that require one argument; however, 
these functions will be discussed later, in Chapter 6. 



HOW MANY ARGUMENTS ARE REQUIRED BY AN APL BUILT-IN 
FUNCTION? 

In this chapter, you will use APL functions with one argument. In the 
next chapter, you will use some of the same APL function symbols with 
two arguments. As you will see, these symbols perform different APL 
functions when they are used with one and with two arguments. When 
you use an APL function with one argument, the argument must be to the 
right of the function symbol. 



APL FUNCTION SYMBOLS THAT ARE A COMBINATION OF TWO 
CHARACTERS 

Some of the APL function symbols you will use are a combination of 
two characters. You remember that when correcting keying errors, if 
you positioned the cursor at a certain character and pressed another key, 
a new character would replace the original character. However, certain 
APL symbols require two characters, one struck over the other. For 
these symbols, key the first character, backspace, and key the second 
character. It does not matter in which order the characters are keyed. 
The symbols that are a combination of two characters are called overstruck 
characters. Appendix A shows the overstruck characters and the keys 
required to enter them. 

Note: If you key an overstruck character and then want to change it, you 
can position the cursor at the character and key another character. The 
new character will replace the overstruck character. 
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DETERMINING THE WHOLE NUMBERS NEAREST A FRACTION 



When you want to disregard the fractional part of a number and just 
consider the nearest whole number, you can use the floor L and ceiling f 
functions. The floor function will round the number down to the next 
snnaller whole number and the ceiling function will round the number up 
to the next larger whole number. 



EXAMPLES: 



B^"3 . 529 




If the number is already a whole number, the 
result is the same as the argument. 



The result for the floor and ceiling functions is 
determined according to the number's position 
on the number line: 



(smaller) 



(larger) 



4 3 "2 1 1 2 3 4 



Rounding to the Nearest Whole Number 

It is a common practice to round numbers to the nearest whole number. 
You can do this by adding .5 to the number and then using the floor 
function. 



EXAMPLES: 



1 X 



Rounds 4.4 to the nearest whole number. 



X<f-'l- . 6i- , 5^ 
LX 



Rounds 4.6 to the nearest whole number. 




These examples could also be entered this way. 
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SORTING A VECTOR IN ASCENDING OR DESCENDING SEQUENCE 



1 

M 




H 




1 
M 




G 



The grade up ^ and the grade down 1i functions can be used to sort a 
numeric vector into ascending or descending sequence, because they 
give you the indices of the argument in ascending or descending order. 



EXAMPLES: 

m-BQ i|!5 62 37 29 7M- 58 15 96 

't'A The largest value Is the ninth 

8 5 li 2 7 3 6 :l. 9-— element. 



The snnallest value is the 
eighth element. 



B *■■ A i: (% A ::i -^ 

B 
15 29 37 »l-5 58 62 7'i 80 96 



Indexing A this way sorts the 
elements of A in ascending 
order. 



Remember, when indexing 
elements in a vector, the 
index numbers or the 
index expression must be 
enclosed in [ ] . 



^{h 



2 i-l- 5 8 



c i" A i:: 'p A ::i 

c 

96 8 7ii 62 58 '15 37 29 1.5 



The elements of A are sorted 
in descending order. 



APL Functions That Require One Argument 33 



GENERATING A RANDOM NUMBER 



To generate a random number, you can use the roll function ?, which 
generates a random number between 1 and the value of the argument. 



EXAMPLES: 



Xf ?6 '* — — Generates a number between 1 and 6. 



A 




The result can be any number between 1 and 6. 

When this function is used with a vector, a 
random number is generated for each element. 



GENERATING CONSECUTIVE NUMBERS 






There are times when you will want to generate a vector of consecutive 
numbers from one value to another value. You can do this by entering 
an instruction like this: 



VECTGR<-:l. 2 3 't- 5 6 7 8 
y ECTOR 
3 '+ o 6 7 \S 



However, you can also use the index generator function i, which generates 
consecutive numbers from 1 to the value specified by the argument. 



EXAMPLES: 



■>. 8 ^ — Eight consecutive numbers 

:l. 2 3 li li^ 6 7 B"""''^'^ 

VECTORS 5-^ \ 1".> -* Five added to each consecutive number 

VECTOR 
6 7 8 9 :l. 

2 )<• \ 6 -* . — First 6 powers of 2 

2 'i 8 16 32 6i|- 
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Generating an Empty Vector 

An empty vector is just that— a vector with nothing in it (no elements). 
Why have a vector with nothing in it? As you will see later, when joining 
two items together or branching in a user-defined function, there are 
times when you will want to generate an empty vector. One way to 
generate an empty vector is to use 1 0. 



EXAMPLES: 



NAME 

V mLUI!" E R RO R -* An error occurs if you use a variable name that does 

NAME not have a value assigned. 



NAME^" \ {)-* Generate an empty vector. 

NAME 

The result is a blank display line (no value). 



FINDING THE SHAPE OF AN EXISTING VARIABLE 



Q 



As you learned in Chapter 2, the left argument of the reshape function 
determined the number of elements in a vector or the number of rows 
and columns in a matrix. Thus, the number of elements in a vector or 
a matrix is referred to as the shape of the vector or matrix. For example, 
the shape of matrix M, which has two rows and three columns, is: 2 3. 
To find the shape of an existing variable, you can use the shape function 
p • 



EXAMPLES: 



SCALAR^i-t- 

VECTOR^- 2 M- 6 8 

M A I R .1. A i- ',:'. ..:> p \ 6 ^ — -Reshape function (has two arguments). 

P SCALAR ^* 

"* — Blank display line— the shape of a scalar 

p y I::! C T I .i R i s a n e m pty vecto r . 

Number of elements in the vector. 

Number of rows and columns in the matrix. 

EM PT Y^" \ -" Generates an empty vector. 

EMPTY 



Blank display line. 



pEMPTY 
(J -* Number of elements in an empty vector. 
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Chapter 4. APL Functions That Require Two Arguments 



In this chapter you will use some APL functions that require two 
arguments. You can use these functions to do the following: 

• Compare the arguments to determine whether one is equal to, greater 
than, or less than the other argument. 

• Process logical data— true (1's) and false (O's) data. 

• Find the larger of two numbers. 

• Find the smaller of two numbers. 

• Find the index of a value in a vector. 

• Generate a random sequence of numbers. 

• Compress (select certain elements from) a vector or matrix. 

• Expand a vector or matrix by inserting zeros or blanks. 

• Join two items together. 

• Find the logarithm of a number. 

There are additional APL functions that require two arguments; however, 
these functions will be discussed later, in Chapter 6. 
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RELATIONAL FUNCTIONS 

When solving problems with APL, you might want to test the relationship 
between two values. For example, you might want to test a counter to 
see if it has reached a certain value; or you might want to do something 
different in the solution to your problem, depending on whether a certain 
condition is true or false. The following APL functions are used to test 
the relationship between two values: 



Function 



Symbol 



Key 



Greater than 



Less than 



Greater than or equal to 



Less than or equal to 



Equal to 



Not equal to 






When these functions are used, the relationship between the two values 
is evaluated, and a 1 results if the relationship is true, and a if false. 
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EXAMPLES: 







:l. :L 1 



(\i- 


•10 


B<- 


•20 


A.: 


a^ 


A::: 


= B-:l.0 


A::i 


;b 


A? 


'B 


a;- 


:B 


A<- 


■ ■ ABC 


Bf 


■ • DEF 


A:= 


•B ^^ 



'The = and =^ functions also work with character 
data. Renriember, each element is compared with 
the corresponding element in the other argument. 
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Why Two Numbers Identical in Appearance Are Not Always Equal 

APL stores all numeric values with an internal precision of 16 decimal 
digits; however, decimal values with more than five significant digits are 
normally rounded off to five digits before they are displayed. Thus, 
occasionally, different numbers will look alike when displayed. 



EXAMPLES: 



Af:l.v-3 

B<-. 33333 

A 
. 33333 -* Only five of the 15 digits are displayed. 

B 
. 33333 

A""B -• The values are not equal. 



1* P "•— D PP is a system variable that determines how 

■■■' many significant digits will be displayed. This 

variable is automatically set to 5 when the 
power is turned on or RESTART is pressed. 
(The system variables are discussed in 
Chapter 9.) 

P P<- :l. ^> -^ Set the D PP system variable so that 1 5 

A significant digits will be displayed. 

.333333333333333> 
B 

■ 33333 "* -^ Notice the difference between the two values. 



[:iPP<f-5 



Set the DPP system variable back to 5. 



Remember, the value displayed may not be the exact value that the 5110 
has stored for the variable. 



An Example Using a Relational Function 

Suppose the correct answer to a problem has been stored as a variable 
called RIGHT, and the answer supplied by a student has been stored as 
a variable called ANSWER. To keep track of the student's score, you 
want to add 1 to his score if his answer is the same as the right answer; 
otherwise, you want to leave his score unchanged. 



APL Functions That Require Two Arguments 39 



If the student got the problem right, it is true that ANSWER=RIGHT. 
To add 1 to his score only if his answer is equal to the right answer, you 
could enter this instruction: 

SCORE<^SCORE+ANSWER=RIGHT 

Then the amount added to SCORE is 1 when the two values are equal 
and when they are not equal. 

Suppose that instead of adding 1 when the student is right, you want to 
give some problems more weight than others. The weight of the current 
problem is stored under the variable WEIGHT. If the student gets the 
problem right, you want to add WEIGHT to his score; otherwise, you 
want to leave his score unchanged. You could enter this instruction: 

SCORE^SCORE+WEIGHTxANSWER=RIGHT 

If the student's answer is equal to the right answer, then ANSWER= 
RIGHT has the value 1, so the amount added is WEIGHT x 1. But if 
the answers are not equal, then the amount added is WEIGHT x 0, 
which is 0. 



LOGICAL FUNCTIONS 

The logical functions take only ones and zeros as arguments and are used 
to check for certain conditions. (They usually check the results of 
relational functions.) The fundamental logical functions are: 



Function 



Symbol 



Key 



And 



Or 



In our discussion of the logical functions, we will use tables like the 
following one to show the possible results of the logical functions: 



Logical Function " a 



— ^ A 





1 


^ — 













1 





1 


-• 


t 









-^ Values of the Right Argument 



Results 



Values of the Left Argument 
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To use this table, simply find the value of the right argument on top of 
the table and the value of the left argument on the left side of the table. 
Then, follow the column represented by the right argument down and the 
row represented by the left argument across. Where they intersect is the 
result of the logical function when those values are supplied as arguments. 
For example, find out what the result of 1 a is as follows: 













Follow the value of the right 

argument down. 









1 



















Follow the value 


1 


ol 


1 




of the left 


They intersect here; thus, 
~"~~~-the result is 0. 


argument across. 











And 



m 



/^ 





1 



















1 





1 






t 









-Right argument. 

■The result is 1 only if both arguments are 1. 
Left argument. 



The And function is used to check for two conditions being true. 

For example, suppose you want to know when the items that cost more 
than $100.00 have a quantity less than 10. You could use the following 
instruction: 



( COST > .1. ) A ( QUANT I T Y < 1 ) 

t 



• The result is 1 when the 
quantity is less than 10. 

■The result is 1 when the cost 
is greater than 100. 



Notice how the parentheses in this instruction specify the order of 
execution. 
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EXAMPLES: 



QUANT IT Y<-B 

CGST<":l.20 

< COST > :l. ) A ( QUANT 1 TY < 1 ) 

quant:i:ty<"2'o 

( COST > :l. ) A ( QUANT I T Y < 1 ) 



Both conditions are true. 



■At least one condition is 
not true. 



Or 



ca 



V 





1 








1 


1 


1 


1 



L 



Right argument. 
-The result is 1 if either argument (or both) is 1, 

Left argument. 



The Or function is used to check for at least one of two conditions being 
true. 

For example, suppose you want to know when either the inventory for a 
certain item is less than 10 or the orders for that item exceed the inventory. 
You could use the following instruction: 



ci: N V i;:: n t o r y < :i. o ) v < o r b e r s > :i: n v e: n t o r y > 

' The result is 1 when the orders 

are greater than the inventory. 



The result is 1 when the inventory 
is less than 10. 
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EXAMPLES: 



0^ 



INVENT0RYM5 
0RDERS<-!5 

< :i:nventgry< .1. > v < grders> inventory ) 



GRDERS<-25 

( INVENTORY-:: :l. ) v ( ORDERS::- INVENTORY ) 



Both conditions 
are false. 



At least one of 
the conditions 
is true. 



Problems: Using Relational and Logical Functions 

1 . It is vital to build error checking into all space systems to prevent 
catastrophe. For example, two indicators checking one condition 
are commonplace. If either or both of the indicators show danger, 
action must be taken. 

Assume that the /A indicator is over its limit at 1.3725 amperes and 
the B indicator is over its limit at 1 .5365 amperes. Enter an 
expression that will result in a 1 when one or both indicators are 
outside their limits; the indicators read 1.3732 and 1.5362, 
respectively. 

2. A survey was conducted by the PTA in which the teacher and the 
parent of the child each evaluated ten of the child's characteristics. 

One child's teacher replied 1 , 0, 1 , 1 , 0, 1 , 0, 0, 1 , to the questions 
dealing with his characteristics. His parent answered 1, 0, 0, 1,0, 1, 
1,0,0,0. 

Show which questions the teacher and parent both replied to with 
a 1. 



Possible Solutions 

Problem 1: 



<:l. . 53615 <:l. .5362)v;|. ,Z72Z<1 .3732 



1 



Problem 2: 

( X :l ) X :i. :i. i o :i. i) :i. o a i o o i o i i o () o 

:l M- 6 
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FINDING THE LARGER OF TWO NUMBERS TF] 

The result of the maximum f function is the larger of the two arguments. 
EXAMPLES: 



A<-5 
Dv-6 
ATB 



6 
36 



< B X B ) I" A X A 



To see how you could use the maximum function, suppose you work for 
a department store. Each month the store calculates the amount charged 
and the amount paid by each customer. Your job is to find the difference 
between the total accumulated charges and the total accumulated payments 
for each customer. This difference is stored in a variable named BALDUE. 
The store also charges a service charge of 1 .5% of the unpaid balance each 
month. You could find this charge with the following instruction: 



CHARGE<-BALDUEx . 0:1.!^ 



However, some of the customers have overpaid their bills. For them, 
BALDUE is a negative number and shows as a credit on their monthly 
statements. If you calculate the service charge by the instruction just 
shown, you will be paying them interest at a rate of 1.5%. Instead, the 
store prefers to calculate the service charge as 1.5% of the balance due 
or of 0, whichever is greater. To do this, you could use the following 
instruction: 



charge: f-. :l.5x or BALDUE 
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FINDING THE SMALLER OF TWO NUMBERS 



The result of the minimum L function is the smaller of the two arguments. 
EXAMPLES: 

Bf-6 
A L B 

<BxB)|..AxA 
25 

C <••;!. i|- 7 9 
D<f-3 2 B 7 
CLD 



Problems: Using the Maximum and Minimum Functions 

1 . Find the largest dollar expenditure for the following gasoline 
purchases: 

a. 16.8 gal at 57.9 cents per gal 

b. 13.5 gal at 60.9 cents per gal 

c. 1 5.6 gal at 62.9 cents per gal 

2. For the following purchases, find the smallest quantity of nuts 
received : 

a. 71 cents for walnuts at 33 cents per lb 

b. 53 cents for cashews at 27 cents per lb 

c. 64 cents for pecans at 29 cents per lb 



Suggested Solutions 
Problem 1: 



( 1 6 . c:J X , 5 7 9 ) I" ( J. 3 . 5 x . 609) j" J. 5 . 6 x .629 
9.B.1.2M- 



Problem 2: 



(7:l.v-33) L (u3v-27) L6'l-v-29 
V 6 S 
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FINDING THE INDEX OF A VALUE IN A VECTOR 



When you want to find out if a value is an element in a vector, and if it 
is, which element it is, you use the index of function ( i ). The index of 
function gives you the position (index) of the first occurrence in the 
left argument of the values in the right argument. If a value in the right 
argument is not in the left argument, the result is 1 plus the length of the 
left argument. 



EXAMPLES: 



23 33 23 B 16 29 \N 



A\ 'CAFE" 



1 f.i ^J 



Bv2 i-l- 

C<-:l. 3 2 5 1+ 1+ 

C\B 




Index of the first occurrence. 

Index generator function. 

Index of function. 

Value does not occur in the 
left argument; the result is 1 
plus the length of the left 
argument. 



GENEF^ATING A RANDOM SEQUENCE OF NUMBERS 



In Chapter 3, you used the roll function (? with one argument) to generate 
one random number. But by using the deal function (? with two arguments) 
you can generate a random sequence of numbers without generating the 
same number twice. That is, the deal function generates the number of 
random numbers specified by the left argument from 1 through the value 
specified by the right argument. The random numbers are selected so that 
no two numbers are the same. Therefore, the left argument cannot be 
greater than the right argument. If you specify the left argument equal 
to the right argument, you get all the numbers from 1 through the number 
specified by the right argument, in random order. 
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EXAMPLES: 



,.j,jj,.„ 

*5 ^ •*- — — May be any two different numbers 

•I. ? :l. between 1 and 5. 

5 3 B 1.0 6 9 2 M- 1. 7 V 

^These numbers can be in any order, as 
you will see if you enter this 
instruction several times. 



SELECTING CERTAIN ELEMENTS (COMPRESSING) 
FROM A VECTOR OR MATRIX r~\ 



You can use the compress function / to select certain elements from a 
vector or matrix. The left argument must be a vector of all 1's and O's 
or an expression that results in such a vector. When you select elements 
from a vector the number of elements in each argument must be the 
same; the corresponding elements of the right argument are retained for 
each 1 in the left argument. 



EXAMPLES: 



VM 2 3 i+ 5 6 7 8 

1 :L :l. 1 :l. :l./y 

:l. 3 ij- 6 7 B 

0/V 

A^-1 :i. 
A/V 



Result is an empty vector. 



1. 8 
AC 



:l. :l. O/'ABCD" 
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When selecting elements from a matrix, you must select and omit entire 
rows or columns. To do this, you must specify the coordinate (rows or 
columns) to be acted on by using an index value [I] . The index value is 
1 if the first coordinate (rows) will be acted on and 2 if the second 
coordinate (columns) will be acted on. 



EXAMPLES: 




Remember, the left argument must contain a 
1 for each item to be selected and a for each 
item to be omitted. 



:i. o/i:::i,::iB 

5 6 7 B 



^ The first coordinate (rows) Is specified. 

1 1 o/i::2::iB 

1 3 ^ The second coordinate (columns) is specified. 



l:i. 



u/b 



If no index entry is specified, the last 
coordinate (columns) Is acted on. 



EXPANDING A VECTOR OR MATRIX 



CD 



You can use the expand \ function to insert blanks or zeros in a 
vector or matrix. The left argument must be a vector of all 1 's or O's or 
an expression that results in such a vector. The number of 1's in the 
left argument must be equal to the number of elements in the right 
argument. The O's in the left argument indicate where the blanks or 
zeros will be inserted; blanks are inserted in a character vector or matrix 
and zeros are inserted in a numeric vector or matrix. 



EXAMPLES: 



;l. :l. :! :l.\:l. 2 3 'i 

:i. 2 3 i| 

:t. :1. :l. :l. \'ABCD' 
AJB c D 
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When you expand a matrix, entire rows or columns of blanks or zeros 
are inserted. As when using the compress function, you can specify the 
coordinate (rows or columns) to be acted on by using an index value 
[I] . The index value is 1 if the first coordinate (rows) is to be acted on 
and 2 if the second coordinate (columns) is to be acted on. If no index 
entry is specified, the last coordinate (columns) is acted on. 

EXAMPLES: 



3 i|- 



:l. 


i) 2 


3 


i-i- 


1 


•■;> 




i.|. 





(J 



1 :i. \ i: 2 :i e 



:i, ;t. (j \ i: i i b 

1 



-The left argument must contain a 1 for each 
row or column being acted on. That is, the 
number of ones in the left argument must be 
equal to the coordinate being acted on (for 
example, the number of rows or columns). 

Insert columns. 



Insert rows. 



1 





':> 


3 





i.|. 


CD 






A B 
C; B 







1 :l. \ B 



Ci-2 2p'ABCu 



1 G l\t 




If no index entry is specified, the last 
coordinate (columns) is acted on. 



Problems: Using the Compress and Expand Functions 

1 . Define a vector called ACCTS containing these five accounts: 56 
103 100 13 0. Select those with balances of $100 or 
more. 

2. Define the matrix DATA< 3 3p \ 9. Then insert a row in 
DATA, with the values 20, 21 , and 22, after the first row. 



Possible Solutions 
Problem 1: 



ACCTS*-!56 103 iOu 13 U 
( ACCTS >10U )/ ACCTS 
3 100 
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Problem 2: 








r:iATA«-3 


3,0 \ 9 






DATA 






;l. 2 


3 






i-l- 5 


6 






7 B 


9 








DAT AM 


1 lAi: 


:i.::iDATA 




DATA 






1. 2 


3 
















i-l- 5 
7 8 


6 
9 








DATAi::2: 


:i<-20 21 


'? '"^ 




DATA 






1 


2 3 






20 : 
i' 


■) .| ,-j .-J 

5 6 

8 V 







JOINING TWO ITEMS TOGETHER 



CD 



You use the catenate function (,) to join two vectors together to make 
a single vector by placing a comma between the left and right arguments. 
The number of elements in the resulting vector is the sum of the number 
of elements in the two vectors being joined (catenated). 



EXAMPLES: 



A^:l. 2 3 
B^'i 5 6 

l-i ; D 

1 2 3 'I- 5 6 
D > A 

•I 5 6 :l. 2 3 

Cf ' CAT ' 
D<- ' EN ' 
Ef' ATIUN 
C; . D > £ 

CATENATION 



A , C 

[iQM A 1 N E R RO R -• A vector must be either all numbers or all 

A ■ C characters; therefore, you cannot catenate 

A character data to numeric data. 



50 



You also use the catenate function to join two matrices together. To do 
this, you can use an index value [I] to specify which coordinate is to be 
extended (that is, whether the number of rows or the number of columns 
is to increase). The index value is 1 if the first coordinate (number of 
rows) is to be extended and 2 if the second coordinate (number of columns) 
is to be extended. When no coordinate is specified, the last coordinate 
(columns) is acted on. 



EXAMPLES: 







A<-2 2pti-l- 






B^2 2pM-Mi+ 






A 


1 


2 




3 


"I- 


B 


5 


6 




7 


e 


A 1- /••. "I y. , 




hi .• 1.. a' ..1 D * 


1 


'? 


!^ 6 


3 
:i. 




7 B 


3 
:l. 


i-i- 


7 B ^^"^^ 

a.i:i:jb>. 


3 


u- 


^N,.^ 


5 
7 


6 
B 





You have just joined two columns to two 
existing columns (increased the number of 
columns). 



When no coordinate is specified, the last 
coordinate (columns) is acted on. 



In this case, you have joined two rows to two 
existing rows (increased the number of rows). 



When you catenate two matrices, the arguments must conform— that is, 
the lengths of the columns (number of rows) must be the same if the 
columns are to be catenated and the length of the rows (number of 
columns) must be the same if the rows are being catenated. 
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EXAMPLES: 




ii ii 


A^-2 
A 


2 pm- 


'I- '-I- 

6 6 
A A 


a- 2 

C 
6 
A 


3r:>6 



A, i::i3c 
:ngth error -• 
A . i: :i. ::i c 



-The length error wai; caused because the row 
coordinate was specified when A and C have rows 
of different lengths. 



4 4 

4 4 

6 6 6 

6 6 6 



A. i::2::ic - 

U- i+ 6 6 6 
'•I- "+ 6 6 6 



Note that the matrices can be joined along the 
column coordinate, since the lengths of the 
columns are the same. 



Building a Vector of Results Using Catenation 

Suppose that as you work through a series of problems you want to 
accumulate the answers. One way to do this is to catenate each new 
result to a vector of results previously obtained. If the most recent 
result is in a variable called LATEST and all the former results are in a 
vector called RESULT, you could use the following instruction: 

RESULT<^RESULT,LATEST 
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Note: The first time this instruction is executed, there is no value for 
RESULT. Therefore, before you use this instruction, you should enter 
the following instruction: 

RESULT^! 

This instruction gives RESULT an initial value (makes it an empty 
vector). 



EXAMPLES: 



LATEST<-:l.0 + 5 



RESUL If- RESULT . LATE ST 

V A L u i:;: e. r r q r 



RESULT^ RESULT, LATEST 



• R ESU LT does not have a 
value; therefore, it is not a 
variable and cannot be used 
in an instruction. 



RESULT^- xO 
RESULT 



re: 

RHi 



SULTf- RESULT, LATEST 
SULT 



Give RESULT an initial 
value (empty vector). 

Blank display. 

Now RESULT can be used. 



15 25 



LATESTf:l.5*:l.0 

RE SULT f- RESULT, LATEST 

RESULT 



Problem: Using the Catenate Function 

Assign codes to variables as follows: A< 'I', B^ T', C< 'D', D^'R', E^ 'GH', 
F^-'YO', G^' ', and H^ 'U'. Then see what message is displayed if you 
catenate the variables in the following sequence: 

FHGCACGABGDAEB 
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Possible Solution 



B<" ' T • 
C^- ' D ' 

E<-'GH' 
l">- ' YO ■ 

Hf- ■ U ■ 

r- , i-i I G ; c: , A . c: , o , a , b ; c? ; n , a , i::: > b 

YOU DID IT RIGHT 



FINDING THE LOGARITHM OF A NUMBER 



o 
O 




* 
P 



You use the logarithm ® function to find the log of the right argument to 
the base specified by the left argument. The log of a number B to a base 
A is the power needed to raise A to the value B. 



EXAMPLES: 



A / •■■) 
I-I < • A.. 

B<-A^t3 
B 



A»)B ■*■ 



■The log of B to the base A. 
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Problem: Using the Logarithm Function 

1 . What is the logarithm of 256 to the base 2? 

2. To what power must 10 be raised in order for it to equal 100000? 

Possible Solutions 

Problem 1: 

2®256 
8 

Problem 2: 

.lOtfll 0000 
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Chapter 5. Applying the Same Function to ail the Elements of a Vector 
Collectively (Reduction) 



It is often useful to have the sum (or the product, or the maximum, for 
example) of all the elements in a vector. APL has a simple procedure for 
applying the same function to all the elements of a vector collectively. 
This function is called reduction, because it reduces a numeric vector 
down to a single number that represents the sum, the product, or the 
maximum, for example. The reduction operator is /. The left argument 
is the function that is applied to all the elements in a vector; the vector 
is the right argument. 

You may have noticed that the reduction operator and the compress 
function have the same symbol. However, you can tell the difference 
between the compress function and the reduction operator by the left 
argument. For the compress function, the left argument is a vector of 
1's and O's and for the reduction operator, the left argument is an APL 
built-in function. 



PLUS REDUCTION 



EXAMPLES: 



-v/A 

:l. f'J.' ^3*'l-*-5-« Adding all the elements of A together is the 

1 5 same as +/A. 



Using Plus Reduction To Find the Average 

The reduction operator is useful for finding the average of the elements 
in a vector. Suppose vector X is as follows: 



X^-2 1+ 3 3 2.5 2 
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The following expression could be used to find the average of the 
elements in X: 



AVG*-(f/X)-vpX 
AVG 
2.75 



Now let's analyze the previous expression. 

1. We find the number of elements in X (the length of X): 



2. Then we calculate the sum of the elements in X: 



■f / X 

i / I"' 



3. Now we can find the average by dividing 16.5 by 6: 



AVG 
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Problems: Using Plus Reduction 

1 . Using reduction, find the average amount that a certain family 
spends each week on food. The weekly grocery bills for November 
were $31.05, $29.78, $25.44, and $35.98. 

2. Temperatures of a laboratory solution were recorded over a 
12-hour period: 



6 


AM 


75.8' 


7 


AM 


71.9' 


8 


AM 


77.0' 


9 


AM 


80.3' 


10 


AM 


85.1' 


11 


AM 


- 82.2' 


12 


Noon - 


- 83.2' 


1 


PM 


- 84.9' 


2 


PM 


- 85.3' 


3 


PM 


85.0' 


4 


PM 


- 82.5' 


5 


PM 


- 80.9' 


6 


PM 


- 78.4' 



Find the average temperature. 

Possible Solutions 
Problem 1: 

B 1 1... I.., S f ■ 3 :l. . !5 29.78 25. i|- 'I- 35.90 
AVG^ < f/BJiLLS ) vpBILLS 
AVG 
30 .563 

Problem 2: 

TEMP*-75 . 8 71 . 9 77 . 80 . 3 85 . :l. 82 . 2 83 . 2 8M- .9 85 . 3 85 . 82 

5 80 .9 78.i|- 

AVG<-< ^/TEMP):pTEMP 

AVG 

8 .962 
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Using Plus Reduction to Sum the Products of Two Vectors 

Suppose that PRICE is a variable that contains the price list for various 
items sold by a store, and Q1 and Q2 are two vectors indicating the 
quantity of these items ordered by two customers. Then the total bill 
for customer 1 is the sum of the product of PRICE times Q1, and the 
total bill for customer 2 is the sum of the product of PRICE times Q2. 



EXAMPLES: 



PR:i:CE<- . 66 :l. . i|0 2? . :l. 2 . 39 m- . 7 . 60 B . M-5 ? . ttO 
Q:l.<-0 2 :L O O 
Q2f:l.2 7 5 10 

•*/Q ix PRICE 
56. '59 

•♦•/Q2x PRICE 
57 . 67 



MINUS REDUCTION (ALTERNATING SUM) 



EXAMPLES: 



A<"3 2 1 U- 
-/A 



3-2-:l.-i+^ 



-/A is the same as this expression. 



The following illustration shows why the answer is 2. 




Direction of processing is from right to left. 

First operation (subtract 4 from 1; the result is ~3). 



Second operation (subtract 3 from 2; the result 
is 5). 



Third operation (subtract 5 from 3; the final result 
is ~2). 

Result. 
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MAXIMUM REDUCTION: FINDING THE LARGEST VALUE IN A VECTOR 

To select the largest single element in a vector, you can reduce the 
vector using the maxinnum [ function. 



EXAMPLES: 



BALDUE<"62. :l.5 :l.27 'I- . 'I^ 18.65^ 
r/BALDUE 



:l.27 



Amount owed 
by all the 
customers of a 
store. 



Largest amount 
owed. 



MINIMUM REDUCTION: FINDING THE SMALLEST VALUE IN A VECTOR 

To select the smallest single element in a vector, you can reduce the 
vector using the minimum [ function. 



EXAMPLES: 



NUMBERS- 1 :l.6 ••!• 7 "9 
I /NUMBER 
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OR REDUCTION: CHECKING FOR A SPECIFIC VALUE IN A VECTOR 

Suppose you want to know whether a certain value exists in a long 
vector. You could use Or reduction (v) to find the answer. 



EXAMPLES: 



NUMBERS<"50?100 
v/NUMBERS====e 




Generate a vector of 50 random numbers. 

The result of NUMBERS=8 is a vector 
consisting of a for each element of 
NUMBERS that does not equal 8 and a 
1 for any element that does equal 8. 



When the vector (result of NUMBERS=81 
is reduced (the Or function is placed 
between each element), the result is 1 if 
at least one of the elements was 1 . 

A displayed result of 1 indicates that the 
value 8 was in NUMBERS and a 
indicates that it was not. 



AND REDUCTION: CHECKING FOR ALL VALUES IN TWO VECTORS 
BEING EQUAL 

You can use And reduction (A)to determine whether corresponding 
elements of two vectors are equal. 



EXAMPLES: 





KEYfl, 
LOCK^-J 

A/KEY:: 


,0:1. :l. .763 :l. 
1. .01 .1.763 
==LOCI< 


.BOB :l. 
I . B98 


. 23116 :l. . 2:;: 
1 . 23'+6 ;l. . '■ 
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• Two vectors 
that have the 
same number 
of elements. 

At least one of 
the elements of 
KEY does not 
match the 
corresponding 
element of 
LOCK. 
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Chapter 6. Using the Built-in Functions 



This chapter contains a summary of the things you can do with the APL 
built-in functions. Some of the functions have already been discussed 
in the previous chapters and all of the functions are described in the IBM 
51 10 APL Reference Manual, SA21-9303. Also, there is an example 
included for each function; you should enter these examples on your 
51 10 to see how these functions work. 

Note: Many of these functions provide special computational capabilities. 



NOW LET'S LOOK AT THE THINGS YOU CAN DO 

Things You Can Do Function Name Keys 

APL Functions That Require One Argument (see Chapter 3 
for more information) 



Determine the next larger whole Ceiling 

number 



I" i.|. , t<j{:j 6 -» If the number is already a whole number, 

the same number is the result. 



• Determine the next smaller whole Floor f L 1 
number ^' ' 

I L|. . 68 2 -< If the number is already a whole number, 

1.1. V the same number is the result. 



Sort a string of numbers in Grade up [ a 1 r~i | 

ascending order LiU v , ^ ) 

fiu"i^ 3 7 2 *^^J:-— - — Indices of A in ascending order 

'o ■:> 'I- 2 'I- -^ ' 

A r fJiA 11-* Sorts A using the indices 

:l. 2 3 7 9 
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Things You Can Do 

• Sort a string of numbers in 
descending order 

'?'Af-3 7 2 9 .1. 
«l- 2 1 3 5 

ai::'Pa:;k 

9 7 3 2 1 



Function Name 

Grade down 

Indices of A in descending order 
Sorts A using the indices 



Keys 



m 



• Generate a random number 



?6 



%:> -«- 



Roll 



CD 



■The result can be any number between 
1 and 6. 



• Generate a consecutive string of Index generator 

numbers 



CD 



\'5 
1 2 3 i-l- S 



Generates a string of five consecutive 
numbers. 



• Determine the length of a string Shape 

or the number of rows and 
columns in a table 



2 3 



Length of the string named A 

ph^T R :i: X«"2 3 \ 6-^ Creates a table and finds its shape in the 

same instruction (the number of rows and 
columns) 



Reshape function (discussed in Chapter 2) 
Shape function 
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Things You Can Do 



Function Name 



Keys 



APL Functions That Require Two Arguments (see Chapter 4 
for more information) 

The result from the following six functions is 1 if the relationship 
specified by the APL function is true; otherwise the result is 0. 



Determine whether two values 
are equal 



Equal to 



• Determine whether the left 
argument is greater than the 
right argument 

:l. 6 > 7 



Greater than 



• Determine whether the left 
argument is less than the right 
argument 

3<i|- 



Less than 



m 



Determine whether the left 
argument is greater than or equal 
to the right argument 

:l.2>:l.:l. 1.2 



Greater than or 
equal to 



Determine whether the left Less than or 

argument is less than or equal to equal to 

the right argument 



Determine whether two values 
are not equal 

f >*• I I I 



Not equal to 
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Things You Can Do 



Function Name 



Keys 



The following two logical functions are usually used to check 
the results from relational operations. Logical functions can 
use only 1's and O's as arguments. The result is 1 when the 
condition being checked for is met; otherwise, the result is 0. 



Determine whether two conditions And 
are true 



II 



1. 



Determine whether at least one 
of two conditions is true 







Or 



Find the larger of two numbers Maximum 



5\U- 



m 



Find the smaller of two numbers 



linimum 



m 



Find the index of a given value 
in a vector 



Index of 



9 8 7 6 5\7 



■The right argument is found in the third 
position of the left argument, which is a 
vector. 



• Generate a specific number of 
different random numbers 



Deal 



m 



3?6 



•Can be any three different numbers 
between 1 and 6 
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Things You Can Do 



Function Name 



Keys 



• Compress (select certain elements Compress 
from) a vector or matrix 



m 



1. :l./2 3 i-l- 5 

4 i Selects the elements that correspond to 

the ones in the left argument 



• Expand a vector or matrix 
:l. 1 :l. :l. ()\2 3 'i- 5 



i) 3 '•!• 5 



Expand 



m 



Inserts elements according to the zeros 
in the left argument 



• Join two arguments together 



■ CAT ■ .• 

catenat:i:on 



'EN" > "ATI UN 



Catenate 



m 



Find the log of a number 
2(»8 -> 



Logarithm 
Log of 8 to the base 2 



APL Functions In Addition To Ttie Ones Already Discussed In 
Previous Chapters (see the IBM 5110 APL Reference Manual, 
SA2 1-9303, for more information) 



• Change the sign of a number 
•■■3 "M- 



"3 ^■ 



Negation 



CD 



Find the sign of a number 



X ""2 2 



1. :l. 



Signum 



The result is '1 for a negative number, 
for 0, and 1 for a positive number. 



• Find the reciprocal of a number Reciprocal 



, 33333 
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Things You Can Do 

• Raise e (2.71828) to a power 

x:l. 3 
2.7:1.03 20 . 086 



Function Name 

Exponential 



Keys 

Q 



Find the log of a number to the Natural log 

base e 



® 2. 7:1.83 20 . 086 



:l. 3 



QCD 



• Multiply a number by pi 
(3.14159) 

o:i. 3 
3, :l.i|-:l.6 9.ii2i|-8 



Pi times 






• Find the product of all whole 
numbers between 1 and a 
specified number 



1 1.1 



2I-I- 



Factorial 



QCD 



The result is the same as 1x2x3x4. 



Change a 1 to a or a to a 1 

^■1 
:i. 



Logical not 



GD 



Determine whether at least one 
of two conditions is false 



Nand 



mm 



:l.^;:l. 



1. 



The result is 1 when at least one argument 
is 0; otherwise the result is 0. 



Determine whether two conditions Nor 
are false 



mm 



:l.C?:l. 







The result is 1 when both arguments are 0; 
otherwise the result is 0. 
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Things You Can Do 



Function Name 



Keys 



• Change a scalar or matrix into a Ravel 

vector 



MATRIX<-2 3f:)\6 

MATRIX 
:l. 2 3 
M- 5 6 

, MATRIX 
12 3 11-56 ^ 



.The result is a vector. 



Execute a character string as an 
APL expression 



Execute 



i. '2XM. ' 



B 



CDQ 



Convert numeric data into 
character data 



2>l- 



pA 



Format 



□ 



■ How to use this function with two arguments 
is discussed in the IBM 5110 APL Reference 
Manual, SA2^ -9303. 

This is a character value. 

A is a two-element (character) vector. 



Find the value of a number 
without regard to the sign of 
the number 



153 "I- 6 



53 '+6 



Absolute value 






Invert a square matrix or compute 
the pseudo-inverse of a rectangu- 
lar matrix 

li;iA<-2 2 pi 3 5 7 
■"0.875 0.375 

0.625 ■0,125 



Matrix inverse 



• Reverse the elements in a vector Reverse 

or matrix 



(D'LIVE" 



EVIL 



UlJ Ly 
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Things You Can Do 



Function Name 



Keys 



• Find the remainder left over from Residue (remainder) 
a divide operation I m 



3!B 



2 is the remainder of 8 divided by 3. 



• Find the values for the trigono- Circular 

metric functions of an angle 



o 




The left argument specifies the trigonometric 
function (in this case, tangent). 

The result Is the tangent of 45° (tt f 4 radians). 



• Find the number of combinations Binomial 
of a number taking so many at a (combination) 

time 



mm 



2 ! '+ 



Four Items taken two at a time can make 
six different combinations. 



Find out if a certain value (left 
argument) exists in a vector or 
matrix 



Membership 







■ ABC ■ <?. ' BANANA '^— The result is 1 If the value In the left argument 
•'• •'• ^ exists in the right argument; otherwise the 

result Is 0. 



• Express a value in another 
number system 



Decode (base value) 



2I-I- 60 6 0.i.:l. 3 15 



51+1.^^ 



Expresses 1 hour 30 minutes 15 seconds 
in all seconds 



• Represent a value in a specified 
number system 



Encode 
(representation) 



21+ 60 60t5I|J.5 

•I- v30 :l. 5 -^ Represents 5415 seconds In hours, minutes, 

and seconds 
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Things You Can Do Function Name Keys 

• Solve one or more sets of linear Matrix divide f - \ [ d 1 

equations with coefficient LJLJ LiJ 

matrices 

26 9l;clB^-2 2p'3 5 :l. 2 



Take a certain number of elements Take 
from a vector or matrix 



3tAxl 2 3 'I- 5 

2 3 -* These three elements were taken from the 

vector. 



• Drop a certain number of elements Dro(3 
from a vector or matrix 



1}. !5 -. The result is the elements remaining after 

the specified number of elements have 
been dropped. 

• Join two arguments together by Laminate f ; 1 

forming an array with an I ' i 

additional dimension , . , x . j- 

^ Jom along a new first dimension. 

1. 2 3 M- 5 .. i: . 5 :i b 7 B 9 (i 
1 2 3 i.j. 5 -»— Two vectors are joined to form a matrix. 

6 ■? 8 9 

• Rotate the elements in a vector Rotate f~ | f o 1 
or matrix as specified by the L_!iJ L.2-J 
left argument 

2*1 2 3 M- 5 
3 ^■ 5 1 2 -« Rotates the vector two positions 
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Things You Can Do 

• Create data arrangements with at 
least one dimension (a data 
arrangement with two dimensions 
has both rows and columns) 



Function Name 



Reshape 



Keys 



CD 




Each number in the left argument is called 
a coordinate— this N-rank array has three 
coordinates. 

Last coordinate is the columns. 

Next to the last coordinate specifies rows. 
Leftmost coordinate is the planes. 
Planes 

You can index elements within N-rank arrays 
by putting a semicolon between coordinates. 



• Interchange coordinates (such as Transpose or 

rows and columns of a matrix) generalized 

of an array transpose 



QCD 



^ARRAY 



5 :l.>l 

8 1.7 

3 12 

6 :l.!5 

9 IB 



When used with one argument, this function 
reverses the coordinates. 

Note: This function could also be used with 
a left argument that specifies how the 
coordinates are to be interchanged. 
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Things You Can Do 

APL Operators 



Operator Name 



Keys 



An APL operator applies certain built-in functions to all the 
elements of a vector or matrix. The reduction operator has 
already been discussed in Chapter 5. 



• Apply the same function 
collectively to all the elements 
of a vector 



Reduction 





-4/1 2 3 ••!• 


S 


;l.'.." * 


r/32 6 11 


:l,9 2 


/ / * 


I../32 6 77 


:l. 9 2 



The sum of the elements 
The largest element 
The smallest element 



• Apply the same function 
cumulatively to each element 
of a vector (the result of each 
operation is used in the next 
operation) 



Scan 



•f\:l. 
:l.O 



i.|. 



:l. 



;l.+2 
;l.-v2i-3 

:i.v2-3Mi- 



The scan function works the same as if you 
entered these instructions. Remember, the 
individual functions are executed from right 
to left. 



• Generate operation tables for Outer product 

various APL functions and data 



Q 





AM 2 3 '-I- 




:l. 


A <> . X A 
2 3 •+ 




•■■> 
3 


i|- 6 e , 

6 9 12 
8 12 16 


A muitiolication table of numbers 
1 through 4 



72 



Things You Can Do 

• Find the matrix product of two 
matrices 



Operator Name 

Inner product 



Keys 





A<"2 


2p: 


. '. 


:> 


3 1 


•1- 




B^-2 


2r:> 


5 


6 


7 


8 




A* . X 


B 










19 


?? 












'I- 3 


5 












Table 


look-up 













The matrix product of matrices A and B 
Inner product 



A f • !•!• i-l- p ' J n i ■! N J A N IE: J A C: !< K A T E 
A 



JOHN 






JANE 






JACK 






KATE 








* JOHN ■ A 


. =-f9A 


1 i"i i) 


i) -1 






' JACK ' A 


. -f^A 


:i. 


(U 





John Is the first name in the table. 
Jack is the third name In the table. 
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Chapter 7. Function Definition 



WHAT IS FUNCTION DEFINITION? 

Although APL has many built-in functions, there will be times when 
you want a special function to solve a problem. APL allows you to 
define your own functions (called user-defined functions) and store 
them for repeated use. 



HOW IS A FUNCTION DEFINED? 



You use existing APL functions to create a new user-defined function. 
The new function consists of: 

• A function header containing the name of the function and other 
information (the types of function headers are discussed later in 
this chapter). 

• An expression or series of expressions, called statements, which define 
the operation(s) to be performed. 

When executing APL expressions, the IBM 5110 is in execution mode; 
however, before a new function can be defined, the mode must be 
changed to function definition mode. The V (del) symbol is used to 
change the 51 10 from one mode to another. For example, to change 
from execution mode to function definition mode, a V is entered as the 
first character in the function header; then after the function is defined, 
another v is entered to close the function definition and change the 
mode back to execution mode. Once the 51 10 is back in execution 
mode, you can execute your user-defined function. 

Now, to show how a function is defined, let's create a function to find 
the hypotenuse of a right triangle. The expression used for this could 
be written as ((A*2)+(B*2))*.5, where we square the lengths of the two 
sides A and B and then take the square root of their sum, which is the 
length of the hypotenuse. The function must have a name by which it 
can be identified, so let's name this function HYP. Now enter the 
opening V (to place the 51 10 in function definition mode) and the 
function header, as follows: 



VHP^-A HYP B ■* Function header. 

i: :i. :] 



APL responds with the number of the first 
statement (expression) to be entered. 
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As each statement is entered, the next statement number is displayed. 
Now enter the remainder of the function as follows: 



H Pi- ( ( A»2 ) •♦• ( Bx-2 ) ) w . 5 ^ 
V 



Expression 

Closing V — Changes mode back 
to execution mode. 



Notice that the names in the function header (other than the function 
name itself) are all used in the body of the function. In particular, 
notice how the result variable name, HP, is assigned the final result by a 
statement in the function. 

The display screen will now look like this: 

VHP<-A HYP B 
f" .1. "I l-i P ^•- < ( A «■ 2 ) •{•• ( B •)(• 2 ) ) H' . ^j 
L21 \? 



Note: If you make a mistake when entering this function, see What To Do 
If You Make a Mistake When Defining Your Function later in this chapter. 

When you entered the closing v , the function HYP was stored in your 
active workspace, so you can use it just like any other APL function 
with two arguments. 



EXAMPLE: 



3 HYP M 



~.< -*- 



10 



Lengths of the two sides. 
Length of the hypotenuse. 



Xf-6 
Yf-B 
X HYP Y 

L^-ii 8 
R HYP L 




Like other APL functions, the arguments can be 
in different forms. 
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Whenever you want to use HYP, just enter its name with the arguments 
you want. The symbol for the calculation of the hypotenuse of a 
right triangle is HYP, just as the symbol for addition is +. 
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A function can have only one instruction, like HYP, or it can contain 
many instructions. 

EXAMPLE: 



VHP<-A HYPL B ^ 
1:1 ::i A2<-Aot2 

i::2::i b2<"B«2 

1:3:3 S<-A2 + B2 

i::ii-:i hp^s-s^.i^v 

3 HYPL i|- 



The function HYP could also have been 
defined like this. 

Note that the closing V can also be on the 
same line as the last instruction. 

Same result as HYP. 



Problems: Using Function Definition 

1 . Define a function that displays the sum of any two numbers. 
Then use the function. 

2. Define a function that displays the area of any rectangle. 
Then use the function. 



Possible Solutions 

Problem 1 : 

VS^'M SUM N 

i::i. ::i s^-m+nv 

6 SUM 3 

Problem 2: 

\?A<-LENGTH AREA WIDTH 

r;:i.:;i a<-lengthx width 
1:2:1 V 

M- AREA Z 
2 



TESTING YOUR FUNCTION BEFORE USING IT 

Once you define your function, you should always try using it with 
data that will give you a known result. For example, suppose that in 
the function HYP you used the following expression by mistake: 



( (AM-2) ^<D)t2) )xT^ 



Should have been * 
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You would get an answer, but it would not be the right answer for the 
hypotenuse of a right triangle. 

When you test your function, one of the following will occur: 

• The 5110 will display the result you expect. 

• The 5110 will display an error message. 

• The 5110 will display a result, but not the result you expect. 

• Nothing will happen. 

If the 51 10 Displays the Result You Expect 

Great! Your function works. 

Note: Even though your function worked one time, you may want to 
test it some more to make sure it will work for each application you 
intend to use it for. 

If the 5110 Displays an Error Message 

You can use the IBM 51 10 APL Reference Manual, SA21 -9303, to find 
out what the error message means and what you must do to correct it. 

Note: An error condition will cause the execution of your function to 
stop; see Chapter 8 for more information on what to do when your 
function stops executing. 



If the 5110 Displays a Result Other Than the One You Expect, or 
If Nothing Happens 

In either of these cases, you have two alternatives: 

• Display the entire function and check it for errors. Displaying the 
Entire Function is discussed later in this chapter. 

• Use the trace and stop features (discussed next) to help find the 
problem. 

Note: When a user-defined function is used and nothing happens 
(that is, neither result nor the cursor appears on the display screen) 
or a result is repeated continuously, the function is probably 
looping. In this case, press the ATTN key to stop (suspend) function 
execution. Chapter 8 contains information on what to do when your 
function stops. 
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HOW TO USE THE TRACE AND STOP FEATURES 



( ^ ; 




A 
H 




s 






Trace Ta 



The trace feature allows you to watch the execution of your function, 
statement by statement. That is, the final result calculated for each 
statement traced is displayed. You can either trace all of the statements 
or just certain statements in a function. To use the trace feature, 
enter Ta , the function name, <- , and the statement numbers to be 
traced. For example: 



TAEXAMPLE<-:l. 2 3 M- 5 6 



The statement numbers to be traced 
The name of the function to be traced 



The previous statement could also be entered as follows: 



TAEXAHPLE^"X6 
T 



Generates a vector of numbers from 1 to 6 



Stop S A 



The stop feature allows you to stop the execution of your function just 
before a specified statement is executed. That is, function execution 
is temporarily suspended (suspended functions will be discussed in greater 
detail in Chapter 8). After function execution has stopped, the 5110 
displays the number of the next statement to be executed. To use the 
stop feature, enter S a , the function name, <-, and the numbers of the 
statements before which function execution is to stop. For example: 



SAEXAMPLE<-3 6 

The specified statement numbers 
The name of the function 



After function execution has stopped, you can start it again by entering 
->n LC. D LC (line counter) is a system variable that contains the next 
statement number to be executed; see Chapter 9 for more information 
about system variables, and the IBM 51 10 APL Reference Manual, 
SA21-9303, for a complete description of the D LC system variable. 
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Now let's use trace and stop to find a problem in a function. 



EXAMPLES: 



VHP<-A HYPX B 
I::I.:J 'THE HYPOTENUSE 
1:2:1 A2<-A*2 

l:3:i b2<-bx-2 
i:m-:i s<"A2+b2 

I:S3 HPfSx,5V 



IS 




3 HYPX M 
THE HYPOTENUSE .TS 

TAHYPX^-2 3 1+ 
3 HYPX M- 

the hypotenu 
hypxi:2.t 9 
HYPX 1:3:1 :l.6 
HYPxi::ii:i 25 

HYPX 1:5:] 1.2.5 
:12.5 




■Defines a function that calculates the 
hypotenuse of a right triangle. 

This function has an error in it. 

Tests the function using data for which 
the correct result is known. The result 
should be 5. 



Using the trace feature to find the problem 



The 51 10 responds with the function 
name, statement number, and the result 
of the statement being traced. 

The correct result was obtained in each 
statement except statement 5; therefore, 
statement 5 probably contains the error. 



TAHYPXf -lO 



SAHYPX<"Lj- 5 

3 HYPX M- 
THE HYPOTENUSE IS 



HYPxi:ii::i 

A 2 
9 




16 



•■h:ilc 



HYPX 1:5:1 

■■■) v.: 



%:> 



:.: vJ 



••h:]lc 



SAHYPXf-U) 



— To turn off the trace feature, use 1 as 
the statement to be traced. 

Using the stop feature to find the problem 



The 51 10 responds with the function 
name and the next statement number 
to be executed. 

When the function is stopped, you can 
enter the variables to see if they con- 
tain the expected values. 

Continue execution by entering ->DLC. 

Execution stops at the next statement 
specified for the stop feature. 

All the variables contained the correct 
values; therefore, statement 5 must be 
in error. 

To turn off the stop feature, use 1 as 
the statement to be stopped at. 

Note: How to correct an error in a 
function is discussed next. 
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WHAT TO DO IF YOU MAKE A MISTAKE WHEN DEFINING 
YOUR FUNCTION 

If you make a mistake when defining your function, you can correct it 
by editing the function. When editing a function, you can do the 
following: 

• Display the entire function. 

• Add one or more statements at the end of the function. 

• Replace statements. 

• Insert one or more statements. 

• Delete a statement from the function. 



• 



Display a specific statement or from a specific statement to the end 
of the function. 



• Modify a single statement. 

If you notice your mistake as you are defining your function, you can 
correct it without reopening the function definition (the 51 10 is already 
in function definition mode). However, if the function definition is 
closed, you must first reopen it. To do this, you must enter the v 
followed only by the function name. If you enter the complete function 
header, you will get an error message. 

Now, let's define a function to use in doing some function editing. 
Enter the following: 



vBTAT X 
:l.::i Hi-pX 
2:1 kf/X)-:-N 

3::i i„/x 
ii;:i r/x? 



This function calculates the average, smallest, and largest number in a 
vector of numbers. Notice that this function does not have a result 
variable in the function header; however, it will still display the results. 
The reason for having a result variable in your function will be 
discussed later. 
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Displaying the Entire Function 



mmm 



To display a function, you enter [Q] immediately after any statement 
number or as shown in the following example. 



EXAMPLE: 



This instruction opens, displays, and closes 



J r7 

VSTATi;:o;i V the function definition. 

V STAT X 
N<-pX 
I < f /X ) -v-N V-.— -— Displayed function. 

I /X 



i::3 

II'+II r/X \ /Try the function. 

STAT 2 9 1 



9 
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Adding One or More Statements at the End of the Function 

To add statements to a function, you open the function definition and 
the number of the first available line is displayed. Then you can enter 
the statements you want to add. 



EXAMPLE: 




The 51 10 displays the number of the first 
available line. 

Open the function. 

Add this statement to find the range of the 
numbers in the vector. The V closes the function 
(you are only adding one line). 



VST AT i::i:i::iv* 

y STAT X 

i;:i.::i \-h-pX 

2:1 (^/X)v-N 

33 L/X 

mi r/x 

■5:1 <r/x)"i../x 



Display the function. 



Displayed function. 



STAT 9 2 :l. 



-Try the function. 
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Replacing Statements within a Function 

To replace statements, the statement number to be replaced must be 
enclosed in brackets [ ] followed by the new statement. 



EXAMPLE: 



VST AT 



i: 1. :i 
i;:2:i 
i:3:j 




This instruction opens and displays the 
function. 



Displayed function. 




\:6Ji 123 (•*/X)vpXy 



The 51 10 displays the number of the first 
available line. 

Notice that you can specify another state- 
ment number by enclosing it in brackets. 
Now, replace statement 2 with this state- 
ment for finding the average. The V closes 
the function. 

In this example, you could also use the scroll 
down key f^ and scroll up key 



STAT 9 :l. 2 



to place statement 2 on the input line 1 . Then 
statement 2 can be corrected; however, you 
must make sure that statement 3 does not 
appear on line before you press EXECUTE. 



VSTATtTj::!^ 
V STAT X 
1:1.3 NfpX 

i;:3::i i/x 
i:ii-:i r/x 

151 (j/X) -L/x 



Display the modified function. 



Displayed function. 
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Inserting One or More Statements in a Function 

To insert statements in a function, you must use a decimal statement 
number that is between the numbers of the statements where you want 
to insert the new statement. For example, to insert a statement between 
statements 1 and 2, you could use the statement number 1.5 or any 
decimal number between 1 and 2. 



EXAMPLE: 




vSTATi::o::iy 

? BTAT X \ 

t: 2 :i X 

i:3::i (h/xy-rpx 

!::'•!• ::i i../x 



i:6::i (r/x)-L/x 

V 



Open the function. 

The 51 10 displays the number of the first 
blank line. 

Insert a statement between statements 1 and 2; 
the inserted statement displays the vector of 
numbers. 

If you do not enter V , the 5110 responds 
with another decimal statement number. 

Enter the closing V. 

Display the function. 



Notice that the 51 10 has renumbered the 
statement numbers. 



STAT 9 2 ;l. 
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Deleting a Statement from a Function 



To delete a statement from a function, you enter [An] , where n is the 
number of the statement you want to delete. 



EXAMPLE: 



vBTATi:i:]:i 



V STAT X 

1:1:1 m-px 

1:2:1 X 

131 (•f/X)vpX 

i:'+:i L/x 

1:5:1 r/x 

162 ( r/x ) "L/x 




Open and display the function. 



Displayed function. 



■The 51 10 displays the next available statement 
number. 

Remove statement 4; you no longer need to 
know the smallest number. 



Note: The closing V must not be entered on 
the same line as [ A n] ; you must enter it on 
another line or an error will occur. 







vsTATi:o::iv - 


< 




V 


STAT X 




1:: 1 ::i 




N^-pX 




1:2:3 




X 




i:3::i 




(•*/X)">-,:>X 


►-<^ _ 


i:i+:i 




r/x 




L'Dl 




(r/x)-L/x 






V 


> 








STAT 2 9 1 


2 9 


1 




M- 






9 
s 









Display the modified function. 



Displayed function— the original line 4 was 
deleted and the statements were renumbered. 



You can also delete a statement by displaying the statement on input 
line 1, pressing the ATTN key (to blank the entire expression), and then 
pressing EXECUTE. Displaying a specific statement is discussed next. 



Function Definition 85 



Displaying a Specific Statement or from a Specific Statement to the 
End of a Function 

You have already seen how to display the entire function; you can also 
display only one statement or each statement from a certain statement 
to the end of the function. To display one statement, you enter [nD] , 
where n is the statement number you want to display. To display each 
statement from a certain statement to the end of the function, you 
enter [Qn] , where each statement from statement n to the end of the 
function is to be displayed. 



EXAMPLE: 



3;:i 



ysTATi::3o::iv- 

(+/X)vpX 



Display statement 3. 



vBTATi:;i::i'+;iv^ 
:'i::i r/x 
53 (r/x>-L/x 



■Display each statement from statement 4 to 
the end of the function. 



Modifying a Single Statement 

You can correct keying errors in a statement of a function the same way 
you correct keying errors made during entering of instructions in 
execution mode. That is, the same procedures for inserting, deleting, or 
replacing characters are used. To correct keying errors in function 
definition mode, you must currently be entering the statement in error 
or you must display the statement you want to correct. 
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EXAMPLE: 



7STATi::2i::i:i 
1:23 X 
l"2:j n ^ 







s?sTATi:n:i? - 






V 


STAT X 




i:i.:i 




N^"PX 




i:2J 




N 




1:3:1 




(+/X)vr->x 


>-*— — 


i:m:i 




r/x 




1:5:1 




(r/x)-L/x 






y 


/ 








STAT 2 9 :l 


3 
ii 






9 






\i 









■Open the function and display statement 2. 

Enter an N to replace the X in the displayed line. 
(You now want to know the number of elements 
in the vector.) 

The 51 10 responds with [3] ; now enter the closing V. 

Display the function. 



N has replaced the X. 



Editing the Function Header 

You can edit the function header the same way you would edit any 
other statement in the function. To do this, you specify statement as 
the statement to be edited. 



EXAIViPLE: 



1: :i. :i 

1:3:1 
1:1+ :i 



s?STATr:():jsTAT:i. x v 
vsTAT:i.i:[:i:i'v? 

STAT:!. X 

N<-pX 

N 

<f/X)vr)X 
r/x ■ 

(i"/X)~L/X 



■The original function header is 
replaced with this function header. 

Display the function. 

Note: Do not be concerned at this 
time if the error message SI 
DAMAGE is displayed; this error 
message and a suggested user response 
is described in the IBM 5110 APL 
Reference Manual, SA21 -9303. 



DEFN 



ysTAT 1:0:1V 

ERROR 



VST AT 



You cannot display the function 
STAT because the function no 
longer has that name. 
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A Faster Way to Add, Replace or insert One Statement in a Function 

If your function is closed and you have only one statement to add, 
replace, or insert, you can do it using only one instruction. For 
example, the following instruction opens, changes, and closes the 
function definition: 



Opens the STAT1 function. 

Specifies that statement 3 is to be edited. 
Replaces the existing statement 3. 
Closes the STATl function. 

/ 

v'STATI 1:3:1 (•♦•/X)vN V 
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EXAMPLE: 



yBTAT:i.i::a:iv 

V STATl X 

rij N<",ox 

\:.:n (•♦•/x)">-px 

i:ii-3 r/x 

i:5::i d'/x)-! /x 



Display the STATl function. 



vbtat:li::6::i 'THIS statement was added •? 

■Add a statement to the function. 



STATl 2 9 :l. - 



3 

9 
B 
THIS STATEMENT WAS ADDED 



Now try the function. 



i:: 1 ::i 
i:2:j 
1:3:1 
i:'i:i 
1:5:3 
1:6:1 
1:7 J 




ySTATl 1:3:1 (•f/X)rNV-^ 

vsTAT:i.i:3.5:ii../xv 
ysTAT:i.i:o:iv 

y STATl. x 
NfpX 
N 

(•*-/X)vN 
L/X 

r/x 

( r/x ) -L/X 



Replace a statement. 

Insert a statement. 

Display the modified function. 



'THIS STATEMENT WAS ADDED 



'v? 



STAT:l. 2 9 ;l. 



3 

:l. 
9 
8 
THIS 



STATEMENT WAS ADDED 
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TYPES OF FUNCTION HEADERS 

Like the APL built-in functions, you can have user-defined functions 
with one or two arguments. You can also have user-defined functions 
without any arguments. The number of arguments required by a 
function is defined in the function header. For example: 



V RESULT^ARGUMENTI FUNCTIONNAME ARGUMENT2 
^ This function requires two arguments. 

V RESULT^FUNCTIONNAME ARGUMENT 
^ This function requires one argument. 

V RESULT^FUNCTIONNAME 

■ ^ This function requires no argument. 

When a function is executed, the value used for an argument is assigned 
to the variable name that appears as the argument in the function 
header. This variable is then used in the function. For example, you 
might have the following function: 



VR^A d:i:v:i:de b 

R<' Av-BV 



If you enter 10 DIVIDE 2, the value 10 is assigned to A and the value 2 
is assigned to B. Now when the statement Ai B is executed, the result 
is 5. 

Note: For some user-defined functions (as with some built-in functions), 
it is important that you enter the arguments in the proper order. For 
example, if you enter 2 DIVIDE 10, the answer would be 0.2 instead of 5. 

When you define a function with one argument, the argument must be 
to the right of the function name; otherwise, the argument will be 
treated as the function name, and vice versa. 



90 



EXAMPLES: 



VR<-A AREAl B^ 
CI.;] Rf-AxBV 

12 AREA:l. 12 
IM'I- 



Two arguments— this function finds 
the area of a rectangle. 



VRfSQRT X- 

Li::i RfX^t.'oV 

AM 1+ 9 16 25 36 
SQRT A ^ 

1 2 3 i-l- 5 6 



One argument— this function finds 
the square root of a number. 

The argument can be a vector. 



vr^-d:i;ce 
i;:i::i r<-?6 6 
1:2:] y 

d:i:ch- 
1 5- 



3 M- 




No argument— this function simulates 
the roll of two dice. 



The results can be any pair of numbers 
between 1 and 6. 



WHY HAVE A RESULT VARIABLE? 

So far in our discussion of user-defined functions, we have usually 
defined functions with a result variable. A result variable is a variable in 
which the result of a function is temporarily stored for use in an APL 
expression. When your function has a result variable, it is said to have 
an explicit result. Without an explicit result, your function cannot be 
used in an APL expression. 

The following function has a result variable; therefore, it has an explicit 
result. 



.Result Variable 
VRESULTfQTY ITEiiX COST 

i:i::i REsuLTfCOBivQiY y 

/ 

Result Variable 



The result variable must appear in both the function header and the body 
of the function (it must be included in the statement where the final 
result is determined). 
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EXAMPLES: 



VQTY ITEM COST* 

i::i.:j cost-^qty? 

:l.0 ITEM .60 
0.06 

STORED- 1.0 :I:TEM .60^ 
. 06 
VALUE ERROR 

sTOREfio :i:tem o.<?i 

A 

10 MO :i:tem .60 

. 06 

value error 

:!.0f:l.0 ITEM 0.6 




Define a function without an 
explicit result. 



The result of the function cannot 
be used in APL expressions. 



V RESULT ^-Q ITEMY C- 

i:::i.::i result ^-CvQV 



Define a function with an explicit 
result. 



, 6 



. 06 



:i. 0.06 



10 ITEMY .60 



STORE^IO ITEMY .60 
STORE 



lOMO ITEMY .60 




The result of the function can now 
be used in an APL expression. 

Remember, if you plan to use the 
function you are defining in an APL 
expression, you must provide a 
result variable. 



LOCAL AND GLOBAL NAMES 

A name appearing in a user-defined function can be either /oca/ or 
global. A global name has the same value during the execution of a 
function as it has outside of the function. A local name has a value that 
is available only while the function is active. Any name appearing in the 
function header (except the function name) is a local name. So far we 
have seen that a function header can contain a result variable and argu- 
ments. Because these variable names are contained in the function 
header, they are local to the function. But other names can also be 
made local to the function if they are placed in the function header 
following the right argument (if any) with a semicolon preceding each 
name. For example, the function header V LOOP R;I;J makes the right 
argument R and the variables I and J local to the function. Now to see 
how local and global names work, let's use some. 
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EXAMPLES: 



1:2:3 
1:3:1 
cM-:i 

12 

3 



VGLOBAL 
GAf-3 
GD^'I- 
GCf-5 
GAfGEifGCV 

GLOBAL 



GA 
GB 
GC 



Define a function without 
any local names. 



Because these names are global 
variables, they also exist out- 
side the function. 



VLOCAL ;LA;LB;LC - 

i::i.:i ia*.-z 

1:23 LB<E-'I- 
1:3:1 L05 
i:ii:i LA-*LB*LCV 
LOCAL 




VALl 



VALl 



L21 
1:3:3 
i:'i3 



vcomb:i:nat:i:on;ga;gb' 

GA*"6 -^ 
GB<-7 

Gc<-e 

GA-*GB*GC'v' 

COMB :i: NAT I ON 



Define a function with all 
local names. 

Notice how the names are 
made local to the function. 

Execute LOCAL, then enter the variable 
names to see what values they represent. 

Because these variable names are 
local to the function, they repre- 
sent a value only during the 
execution of the function. 




Define a function using both 
local (GA and GB) and global 
(GC) names. 

Local names that are the same 
as existing global names. 

Global name. 



Notice that outside the function, 
the existing global values (previously 
established by the function GLOBAL) 
are used. The new values (6 and 7) 
existed only during the execution of 
the function. 

Because this variable name is not 
local to the function, the global 
value was changed. 
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Now, you are probably wondering why you should make variable names 
local to a function. Following are some reasons for using local variables: 

• Let's assume you have defined a function named COUNT that uses a 
variable named X. At some later time, you assign the result of an 
important calculation to a global variable named X. Now if you 
execute COUNT, the following conditions can occur: 

1 . If X was made local to COUNT, the global value of X is not 
changed. 

2. If X was not local to COUNT, the global value of X (the 
results of your important calculation) is changed. 



• 



You can conserve space in your active workspace by not storing the 
values for variables you do not use outside a function. 



BRANCHING, LABELS, AND LOOPING 
Branching and Labels 

Statements in a user-defined function are normally executed in the order 
indicated by the statement numbers, and execution terminates at the end 
of the last statement in the sequence. However, this normal order of 
execution can be modified by branching (transferring to another point 
in the sequence). Branching is indicated by a right arrow -> followed by 
a label that specifies the statement to be branched to. 

For example, the expression ->START means branch to a statement 
labeled START. When a label is assigned to a statement, the label is 
followed by a colon and must precede the statement. The colon separates 
the label from the statement: 

i:2:j start :N*-nm 



i;;5::i -^ si art 

In the previous illustration, the label START iis assigned to the second 
statement in the function. In this case, START has a value of 2; however, 
if the function is edited and the statement is no longer the second 
statement in the function, START will automatically be given the value 
of the new statement number. Now as the function executes, when 
statement 5 is executed, a branch is taken to the statement labeled 
START. If the same label appears more than once in a function, any 
branches taken to that label always branch to the first statement with 
the label. 
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Labels are local to a function; that is, they can be used only within that 
function. Following are some rules that apply exclusively to the use of 
labels: 

• They must not appear in the function header. 

• You cannot assign values to them. 

There are two types of branch statements you can use— unconditional 
branches and conditional branches: 

• Unconditional brandies are branches that are taken each time the 
branch statement is executed. You have already seen an example of 
an unconditional branch, [5] ->START, where the branch to the 
statement labeled START is taken each time statement 5 is executed. 
Another common use of an unconditional branch is -^0, which causes 
the execution of the function to be terminated. 

• Conditional branches are branches that are taken depending upon 
some condition that exists at the time the branch statement is executed. 
Conditional branches are used, for example, to branch to a statement 

if a condition is true and to otherwise continue with the next 
statement (fall through). This type of branch can be entered like 
this: 

^{CONDITION)/N 

The branch to statement N is taken if the condition is true; otherwise 
the next statement is executed. For example, APL executes the 
branch statement -> ( I > N )/STA RT as f ol lows: 

1. First, the condition (l>N) is evaluated; the result is 1 if the 
condition is true and if the condition is false. 

2. The result of step 1 is then used as the left argument for the 
compress (/) function: 

a. If the result of step 1 was 1, START is selected from the right 
argument and a branch to the statement labeled START is 
taken. 

b. If the result of step 1 was 0, nothing is selected from the right 
argument (an empty vector is the result). A branch to an 
empty vector means execute the next statement in sequence 
(fall through). 
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In the following example, you will use two variations of a function to 
determine the sum of each number from 1 to the value of the argument 
(each function will use a different method of branching). 



EXAMPLES: 



i:;i.:i s^-o 

i::2::i :i:<-:i. 

1:3:1 CHECK :-k:i:>n)/o 

i:ii:i s^s+i 

1:5:1 I^-IM 

[.- 6 :i -^ c I -I E c i< V ^ — 



Branch to (terminate the function) or fall 
through to the next statement. 

Unconditional branch to CHECK. 



SUM2 5 



?S^-SUM3 N 

i::i. :i s<-() 

1:2:1 K-0 

1:3:1 CHECK :S<-s+:i: 

1: M :i I <i •• :i: ■*• :i 

i:i:;:i -k ;i: ::;n) /check y- 

SUM3 15 
:l,5 



Branch to CHECK or fall through. 
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Looping 



A repeated segment of a function is called a loop; when you have a loop 
in your program, you must provide a way to get out of the loop. 



EXAMPLE: 

VLOOP^ 








-This function executes a 


i:::i.::i :i:<E-o 








continuous loop. 


i:2:;i label: 'this program 


CONTAINS 


A LOOP' 


UZl li^lil 










dm;;i -^labelv 










LOOP 










THIS PROGRAM 


CONTAINS 


A 


LOOP 




THIS PROGRAM 


CONTAINS 


A 


LOOP 




THIS PROGRAM 


CONTAINS 


A 


LOOP 




THIS PROGRAM 


CONTAINS 


A 


LOOP 




THIS PROGRAM 


CONTAINS 


A 


LOOP 




THIS PROGRAM 


CONTAINS 


A 


LOOP 


Note: To stop execution 


THIS PROGRAM 


CONTAINS 


A 


LOOP 


of LOOP, press the ATTN 


Loopi::3;i- 








key. 

- The name of the function 



and the statement number 
where execution stopped is 
displayed. 



1:3 

im 



TH 
TH 
TH 



Provide a way to get out of 
the loop. 



V L p \: M- ::i -^ < i ^^ 3 ) / 1... a b e l v- 
VLoopi::i::i::i\?' 

■ LOOP 

1 ^" - Display the function. 

L A B !:: I... : ■ T i-i :i: s p r gram c n t a j: n s a l p ' 
I <•■ I ■*■ :i. 
•K 1^3) /LABEL 



V 



LOOP 
PROGRAM 
PROGRAM 
PROGRAM 



CONTAINS 
CONTAINS 
CONTAINS 



LOOP) 

LOOP)- 

LOOP 



The loop is executed three 
times. 
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HOW TO ENTER DATA DURING FUNCTION EXECUTION 



t K 



So far you have defined functions for which you have supplied the data 
for the function as arguments. This method of supplying data limits you 
to two input arguments, and you must be familiar with the function so 
that you can enter the required arguments in the correct order. However, 
you can also define user-defined functions that display requests for input 
data as the function executes. This type of function allows you to input 
any amount of data; and you can also define your function so that it 
specifies what type of data is to be entered. To do this, you use the 
D (quad) or Q (quad quote) symbols in your function to request input 
from the keyboard. When a D is encountered in a function, execution 
stops and D : is displayed to indicate that the system is waiting for 
numeric or character input (character data must be enclosed in single 
quotes) from the keyboard. When a □ is encountered in a function, 
execution stops, the cursor appears, and the system waits for input from 
the keyboard; but in this case, everything on the input line from position 
1 to the cursor or the last character entered (whichever is the farthest on 
the input line) is treated as character input, even though you do not use 
enclosing single quotes when you enter the data. 



EXAMPLE: 



Enter the following user-defined function to determine the final score of a 
baseball game: 



VBASEBALL 

i::i.::i 'enter the name of the visiting team" 

3:1 'ENTER THEIR SCORE BY INNINIT 

"I- ::i V s c: r e: <•• *— 

'51 'ENTER THE NAME OF THE HOME TEAM' 

6 :i i-i c} M e: <■ in 



7::i "ENTER THEIR SCORE BY INNING" 

:i I-I s c; r e *.■■ u -* 



9:1 "THE FINAL SCORE WAS 
;l. 0:1 VISIT 

ii::i f/vscoRE 

12:1 HOME 

13:1 f/HSCOREv 




The input from the 
keyboard will replace 
the D or Q and be 
assigned to the 
variables. 



The score by inning was: REDS -010203250 

BLUES -000231300 
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EXAMPLE (continued) 



Now execute the function: 



BASEBALL 

ENTER THE NAME OE THE V]:s:i:TING TEAM 
REDS 



ENTER THEIR SCORE BY INNING 
U 

I 2 3 2 5 



ENTER THE NAME GE THE HOME TEAM 

BLUES 

ENTER THEIR SCORE BY INNING 

2 3 I 3 
THE EINAL SCORE WAS: 
REDS 
1 3 
BLUES 



Notice how the messages 
identify the type of key- 
board input required. 

This character data is not 
enclosed in single quotes 
because it was requested 
by a □ in the function. 

This is not character data 
because it was requested by a 
D and is not enclosed in 
single quotes. 

Note: A G : indicates that 
the keyboard input is reques- 
ted by D in the function; no 
D : (blank line) indicates 
that the keyboard input isi 
requested by □ in the 
function. 



When you are using interactive functions, there nnay be tinnes when you 
need to escape from a request for input. Normally, pressing the ATTN 
key causes the execution of your function to stop; however, pressing the 
ATTN key during a request for input does not stop the function (the 
function continues to wait for input to be entered). Therefore, APL 
provides a way to escape from input requests. To escape from a U input 
request, you enter ^, which causes execution of your function to be 
terminated. 

To escape from a □ input request, you must enter the ID (OUT) character. 
You enter this character by holding the CIVID key and pressing the 



□ 



key once, and then pressing the EXECUTE key. This will cause the 
execution of your function to stop. What you can do next when your 
function stops is discussed next, in Chapters. 
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EXAMPLE: 



BASEBALL -* 

ENTER THE NAME OF THE VISITING TEAM 

REDS 

ENTER THEIR SCORE BY INNING 

: 

->"■ 



BASEBALL 
ENTER THE NAME OF THE VISITING TEAM 



ENTER THEIR SCORE BY INNING 



1 :l. 1 1 :l. 1 :L l 1^ 

ENTER THE NAME OF THE HOME TEAM 



INTERRUPT 
BASEBALL [. 6 ::i HOME^I!! 



Let's use the BASEBALL 
function to show how to 
escape from input requests. 




• Entering -^ in response to 
a D input request causes the 
execution of the function 
to be terminated. 

Try escaping from a H by 
entering ->. Your entry was 
treated as a character, and 
used as the visiting team's 
name. 

Enter some numbers so that 
the next Q input request 
will be displayed. 

■ Entering the ID character 
(holding CMD and pressing 
the r~ ^ key once) causes 



□ 



the execution of the function 
to stop. 
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Chapter 8. What You Can Do When Your Function Stops 



The execution of your user-defined function will stop when: 

• The ATTN key is pressed. 

• The stop feature is used. 

• An error is encountered in the function. 

• A ID character (the CMD key held and the [ ] key pressed once) 



(D 

is entered for a □ input request. 



A function that has stopped executing for one of the preceding reasons 
is called a suspended function. A suspended function is still active, since 
its execution can be resumed later. 

Now let's look at what you can do when your function stops executing. 



WHEN THE ATTENTION KEY IS PRESSED 

When you press the ATTN key during the execution of your user- 
defined function, the function stops executing at the end of the state- 
ment currently being executed. In this case, the 5110 displays the 
function name and the next statement number to be executed. 

After your function stops executing, you can do one of the following: 

• Edit the function. 

• Execute the function again. 

• Execute another user-defined function. 

• Execute system commands except for )SAVE, )COPY, and )PCOPY. 
The system commands are described in the IBM 5170 APL Reference 
Manual, SA2^ -9303. 

• Terminate the function by entering ^. 
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Generally, after you have stopped your function by pressing the ATTN 
key, you will want to resume execution of the function at a later ti.me. 
To do this, you enter -)-D LC. D LC is a system variable that contains the 
statement number of the next statement to be executed (see the IBM 
5110 APL Reference Manual, SA21-9303 for a complete description of 
the D LC system variable). 

Note: If you want to resume execution at a statement other than the 
one immediately following the last statement executed, enter ^n (where 
n is the statement number at which you want to resume execution). 



EXAMPLES: 



V s I" I..I N c: r 1' Q N ; c; q u n t' — 

1:1:1 CDUNK-0 

1:2 J LOOP: •THIS FUNCTION CONTAINS A LOOP 

i::3;:i counts-count •*•:!. 

i:'+::i ••H...00P 

1: 5 1 ' TH I S FUNCT I ON LOO PED ' 

1:6::! COUNT 

1:7:1 ■ TIMES "V 



Define a function 
with a continuous 
loop. 



SFUNCTION 



TH 
TH 
TH 
TH 
TH 
TH 
TH 



IS 
IS 
IS 
IS 
IS 
IS 
IS 



FUNCTION 
FUNCTION 
FUNCTION 
FUNCTION 
FUNCTION 
FUNCTION 
FUNCTION 



CONTAINS 
CONTAINS 
CONTAINS 
CONTAINS 
CONTAINS 
CONTAINS 
CONTAINS 



LOOP 
LOOP 
LOOP 
LOOP 
LOOP 
LOOP 
LOOP 



Press the ATTN 

key to stop execution 

of the function. 



SFUNCTiONi:3::i -*- 



VSFUNCT I ON 1: i-l- :i ••> ( COUNT < 3 ) /LOO P V 

•■h::ilc 




The function is 
suspended at the 
statement number 
shown in the [ ] on 
your display screen. 

Edit the function so 
that it does not 
contain a continuous 
loop. 

Resume execution 
of the function. 
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EXAMPLES-continued 

THIS FUNCTION LOOPED 

7 ^ 



TIMES 



SFUNCTION 



THIS FUNCTION CONTAINS A LOOP 



THIS 
THIS 

THIS 

3 

TIME1 



FUNCTION 
FUNCTION 

FUNCTION 



CONTAINS 
CONTAINS 

LOOPED 



The value shown 
here on your display 
screen is the number 
of times the function 
looped. 

Now execute the 
function again. 



LOOP 
LOOP 



Note: When the shift key is held down and the ATTN key is pressed 
during the execution of an APL statement or expression (either within 
or outside a user-defined function), the execution of the statement or 
expression stops immediately. The message INTERRUPT, the statement 
being processed, and the caret ( a ) that indicates where the statement 
was interrupted is displayed. You can use this method to interrupt 
statements that take a long time to execute. However, any results 
generated by the statement or expression before it was interrupted 
might not exist after the interrupt. 



WHEN THE STOP FEATURE IS USED 

You are already familiar with the stop feature, which was discussed in 
Chapter 7. When using the stop feature (as when using the ATTN key), 
you can do the following: 

• Edit the function. 

• Execute the function again. 

• Execute another user-defined function. 

• Execute system commands except for )SAVE, )COPY, and )PCOPY. 

• Resume function execution by entering ^ D LC. 

• Terminate the function by entering ^ . 
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WHEN AN ERROR IS ENCOUNTERED IN THE FUNCTION 

The reason the execution of your function stopped in this case, unlike 
the reasons in the other two cases, cannot be controlled by you. That 
is, the 51 10 automatically stops the execution of your function and 
displays an error message when an error occurs in the function. The 
error messages and a suggested user's response for each error are 
described in the IBM 51 10 APL Reference Manual, SA21-9303. 

Errors in a user-defined function are sometimes difficult to find and 
correct. The error message displayed indicates where the execution of 
the statement stopped, and why; but the reason the failure occurred at 
that point might have been because a mistake (either a keying error or 
an error in the solution to the problem) was made earlier in the statement 
or because a mistake was made in an even earlier statement in the 
function. Following are some hints to help you find errors in a statement 
or expression that is failing or giving the wrong results. 

• Check the expression (statement) you entered for any keying errors. 

• Analyze the execution of the expression from right to left. Remember, 
APL executes an expression from right to left with the expressions in 
parentheses resolved (right to left) as they are encountered. 

• Use the shape p function to make sure the shapes of the arguments 
are what you expect. For example, suppose you have a function 
named CAT that catenates two vectors together to form one vector; 
however, one of the arguments you supplied was a matrix (this 
causes a LENGTH ERROR). 

• Enter the names to check the values of the arguments to make sure 
they are what you expect (local variables in a suspended function 
can be displayed, since the function is still active). 



• 



Break the expression down and execute it in smaller segments. 
The up Mi and down MB arrows (scroll up and scroll down 

keys) make it easy for you to break the expression down; that is, 
you can execute the expression as APL does (from right to left with 
expressions in parentheses resolved as they are encountered). To do 
this, you enter the first operation performed by APL, for which the 
result will be displayed. Then press the down arrow three times and 
the up arrow once to remove the previous result from the display 
screen (so that it is not on the input line when the EXECUTE key 
is pressed again) and to place the instruction you just entered in a 
position for you to add more operations. Now you can add the next 
operation to the instruction, and the next, until the error in the 
instruction is found. 
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• Display intermediate results from the expression using the D . This 
does not change the final result. For example: 



21 



3-^ 
21 



:^xi.i.f !";■■•■':> 



[ r 



It is important that you maintain a history (either a printout on the 
printer or a handwritten copy) of what you did when you were trying 
to find the cause of an error. Then if you cannot find the error and you 
think the problem is caused by the 5110, this history will help your 
service representative determine where the problem is. 

When a function has stopped because an error occurred, as when pressing 
the ATTN key or using the stop feature, you can do the following: 

• Edit the function. 

• Execute the function again. 

• Execute another user-defined function. 

• Execute system commands except for )SAVE, )COPY, and )PCOPY. 

• Resume execution of the function by entering -^DLC. 

• Terminate the function by entering -^ . 

WHEN A ©CHARACTER IS ENTERED FOR A □ INPUT REQUEST 

In Chapter 7, you used the 0) character to escape from a □ input request 
and to stop function execution. In that case, the 51 10 displayed the 
message INTERRUPT, the function name, and the statement that 
requested the input. After your function stops, you can do the same 
operations that you did when the function stopped for any other reason. 
However, in most cases, you will want to terminate the function by 
entering ^ . 

FINDING OUT WHAT FUNCTIONS ARE SUSPENDED 

The state indicator contains the function name and the number of the 
statement to be executed next for each suspended function. To display 
the state indicator, you enter )SI or )SI N L. See the /BM 57 10 APL 
Reference Manual, SA2 1-9303, for more information on the state 
indicator. 
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USING THE HOLD KEY TO STOP PROCESSING 



We have already discussed the ways a user-defined function can be 
suspended. You can also stop the execution of a function by pressing the 
HOLD key once. In fact, this stops the entire system from processing 
any data. To resume processing after pressing the HOLD key, you must 
press the HOLD key again. The HOLD key is useful when the information 
on the display screen is changing rapidly; that is, you can stop processing, 
read the displayed information, and then resume processing. 



EXAMPLES: 



VHOLDF -< Define a function. 

i: :!.::! \Mi) 

i:2::i 'press the hold key to stop processing* 

1:3:1 LOOP:H<"HM. 

i:m:i h 

i:5:j ••kh?^25)/loopv 



HOLDF 
PRESS THE HOLD KEY TO STOP PROCESSING 

J. 

':> 

The value displayed here on your 
display screen indicates how many 
times the function looped before 
processing stopped. 

HOLD -. — Notice that the characters HOLD 

are displayed in the bottom left 
corner of the display screen when 
the HOLD key is pressed once. 

Now press the HOLD key again to resume processing. 
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Chapter 9. Using Tape or Diskette Storage {Your Library) 



So far you have used only the 51 10 active workspace. The active work- 
space is the part of the 51 10's internal storage where the calculations 
are performed; It is also the place where the variables and user-defined 
functions are stored. When you set the 51 10 POWER ON/OFF switch 
to OFF or press RESTART, the data in the active workspace is lost. 
However, before turning the power off or pressing RESTART, you can 
save the data in your active workspace by writing the contents of the 
active workspace on a tape cartridge or diskette. This media (tape or 
diskette) is like a library; that is, you can write the contents of your 
active workspace on the media (like placing a book on the library shelf) 
and, at a later time, put the information stored on the media back into 
the active workspace (like taking the book off the library shelf to use 
it again). 

The library consists of one or more files (each file is like a book), and 
just as each book in the library has a name, each file that contains 
information on the media also can have a name (file identification). 

The IBM 5110 system commands are your means of controlling the 
active workspace and storage media (library). Look at the labels above 
the alphameric keyboard; you can enter these system command key- 
words by simply pressing the CMD key with the appropriate key below 
the label. The system command keywords can also be entered character 
by character. Notice that each system command begins with a ) symbol. 
There are some system commands that do not appear on the labels 
above the keyboard. All of the 51 10 system commands are discussed 
in detail in the IBM 5110 APL Reference Manual, SA21-9303. 

In the following example, you will see how some of the system com- 
mands work. First, a tape cartridge or diskette must be inserted into 
your system. 

If you are using a tape cartridge: 

1. Be sure the tape contains no data required for any further use. 

2. Make sure that the SAFE switch (Figure 3) does not point to SAFE. 

3. Insert the tape cartridge (Figure 4). 
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If you are using a diskette: 

1 . Be sure the diskette is initialized and contains no data required for 
any further use. 

Note: The IBM-supplied diskettes are initialized before they are 
sent to a customer. 

2. Remove the diskette from the protective envelope (Figure 5). 

3. Insert the diskette into diskette drive 1 (F-igure 6). 
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Make sure the SAFE switch 
is in this position. 




Figure 3. The SAFE Switch 



nsert the tape cartridge as shown. 




Figure 4. Inserting a Tape Cartridge 
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Figure 5. Removing the Diskette from the Protective Envelope 




This label must be In 
the lower right corner 
as the diskette is 
inserted. 



Figure 6. Inserting a Diskette in Diskette Drive 1 



110 



EXAMPLES: 



Press RESTART on your 51 10; all the data that was In the active workspace is now 
lost. 



CLLAR WS -« This message will be displayed 

when the 51 10 is again ready 
for you to enter data. 



Enter the following function and variable so that you can store them on the media 
for later use: 

VE:XAMPLE:;R;NAME 
Cl„l "THIS F-UNCTION COUNTS THE- CHARACTERS IN YOUR NAME" 

i::2:i 'now enter your name* 

1:33 NAME^-ra 

CM- 3 'THERE ARE' 

151 p,NAME 

f:6:i 'CHARACTERS IN YOUR NAME ' V 

VARIABLEf'LET" 'S SAVE THIS DATA ' 
Now try the function EXAMPLE to see if it works. 



I}" ^'^S -*— The )FNS system command 

h:.XHMPLL displays user-defined function 

names in the active workspace. 

) VARS The )VARS system command 

'VARI A.BLE displays the global variable 

names in the active workspace. 



Before the storage media can be used, the files you want to use must be formatted. 
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)MARK 
MARKED 0003 



16 3 1. 
016 



The )MARK command formats 
files on the media. This com- 
mand specifies: 

— — Size of the files to be 

formatted 

— — Number of files to format 
— Starting file number 

— — Device. If you are using 

tape storage, specify 1 
(tape drive 1 ). However, 
if you are using diskette 
storage, specify 11 (disk- 
ette drive 1) instead of 
tape drive 1. See the 
IBM 51 10 APL Reference 
Manual for the default 
device used by the system 
if the device is not 
specified. 



APL will respond with MARKED, 
number of the last file marked, 
and the size of the files. If the 
file you want to use has been 
marked before, you will get a 
message ALREADY MARKED. 
In this case, enter GO and press 
the EXECUTE key to reformat 
the tape files. 



Note: 
the 



If you enter the )MARK command by holding down the CMD key and pressing 
key, the command is displayed as follows: 



m 



)MARK KB NF SF DEV 




-These characters identify the 
parameters required for the 
command and must be replaced 
with the required information. 
KB stands for the size of the files 
to be formatted in K(1024) byte 
blocks; NF stands for the number 
of files to be marked; SF stands 
for the starting file number; DEV 
stands for the device number the 
media is on. 



After the )MARK command is executed, the files are formatted in blocks of 1024 bytes. 
For example, the size of the files just formatted is sixteen 1024-byte blocks (or 16,384 
total bytes). See the IBM 51 10 APL User's Guide, SA21-9302, for information on 
what size to format files. 
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Now let's write the contents of the active workspace on the media. In the following 
examples, if you are using diskette storage, specify device 1 1 (diskette drive 1) instead 
of device 1 (tape drive 1). For example, device/file number 1001 should be 11001 for 
diskette. 



)(:;ont;i:nue :i.o()i 
coNTiNUEn 1.001 :i:ni"o 



INFO* 



-This becomes the name of the 
file on tape. 



) CLEAR* 
CLEAR WS 



-This specifies the device/file 
number (device 1, file 001) 
to which the contents of the 
active workspace are written. 

You do not have to turn the 
power off or press RESTART 
to clear all of the existing data 
out of the active workspace; 
you can use this sytem 
command. 



The data in a stored workspace can be placed back into the active workspace. 



)L(3Ai:i lOOl^INFO 
OADED 10 01. INF(3 




The stored workspace name 
(workspace ID). 

The device/file number from 
which the stored workspace 
will be loaded. 
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)FNS 
E:X AMPLE 

)VARS 
VARIABLE 




Now the data that was stored 
on the media is in the active 
workspace once again. 



The remaining system commands are described in the IBM 51 10APL Reference 
Manual. Try using these system commands to see how they work. 



So far, you have learned how to write the entire contents of the active 
workspace on the media. However, you can also write one variable at a 
time to a file on the media. This data can then be read from the media 
at a later time in the same order as it was written to the media. For 
more information on how to do this, see the IBM 51 10 APL User's Guide. 



WHAT ARE SYSTEM VARIABLES? 

System variables are variables within the active workspace that control 
the system. All system variables begin with the D symbol and are set to 
an initial value by the 51 1 in a clear workspace. See the IBM 51 10 
APL Reference Manual for a complete description of each system 
variable. In the following example, you will see how the value of some 
system variables can be changed and how this affects certain APL 
functions. 



EXAMPLES: 



The index origin D'O system variable determines the index origin. The value of 
the D 10 system variable can be either or 1 , which means that the first element of 
a vector or array is indexed with a or 1 depending upon what the D 10 system 
variable is set to. The APL functions i ? 4 t and indexing ( [] ) are affected by the 
[] 10 system variable. 



ilG 




You can display the value of a 
system variable the same way you 
display the value of any variable. 

The D'O system variable is 
initially set to 1 by the system. 

Results when the [] 10 system 
variable is set to 1 . 
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3?3 



3 1 2 




These numbers can be in any 
order. 

You can change the value of 
some system variables. 

Notice how the results of these 
APL functions change when the 
DIO system variable is changed. 

These numbers can be in any 
order. Notice that the values 
start from 0. 



The printing precision QPP system variable determines the number of significant 
digits displayed. 



|;;|pp 




The nPR system variable is 
initially set to 5 by the system. 



Five significant digits are 
displayed. 



Now only two significant digits 
are displayed. 



The comparison tolerance QCT system variable determines how close two numbers 
must be when you are using the relational, floor, or ceiling functions. 



OCT 



:LE 


1 



:l.3 



nCTt-lE"!^ 



) CLEAR 
CLEAR WS - 



The DCT system variable is 
initially set to 1E~13 by the 
system. 

These two values are not 
considered equal. 

•Now these two values are 
considered equal. 

The workspace is clear and the 
system variables are once again 
set to their original values. 
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REMEMBER, APL IS A GOOD LANGUAGE 
TO EXPERIMENT WITH. THE MORE YOU 
EXPERIMENT, THE MORE YOU LEARN. 
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Appendix A. Overstruck Characters 



Name Character 

Comment n 

Compress 

Execute 

Expand 

Factorial, Combination i 

Format ^ 

Grade Down \t' 

Grade Up ^ 

Logarithm ® 

Matrix Division |]] 

Nand a 

Nor V 

Protected Function v 



Using 
These 
Keys 



Using the CMD 
Key and Pressing 
This Key 



' "'' "°*" Q] GD CD 



\ (See note) 



mm m 



ij 


1 


V 
G 












A 




^M 




H 



CD CD 
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Name 



Character 



Using 
These 
Keys 



Using the CMD 
Key and Pressing 
This Key 



Quad Quote 
Rotate, Reverse 
Rotate, Reverse 
Transpose 



^^^ 



a 



4> 



e (See note) i o 

taffl 



CD 
CD 
CD 

BB CD 



Note: These are variations of the symbols for these functions; they 
are used when the function is to act on the first coordinate of an array. 
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Index 



)CLEAR command 112,115 

)CONTINUE command 112 

)FNS command 111 

) LOAD command 112 

)M ARK command 112 

)VARS command 111 

[I] 48,49,51 

[Ql 81 

[Dn] 86 

[n[]] 86 

[An] 85 

D 98 

D: 98 

DCT 115 

[]I0 114 

DPP 39, 1 1 5 

H 98 

^[]LC 79, 102 

©character 99, 105 

Vsymbol 74 

r function 32, 44 

L function 32, 45 

/fi function 33 

\j' function 33 

? function 34, 46 

1 function 25, 35 

p function 35 

< function 37 

< function 37 

> function 37 

> function 37 
= function 37 
T^ function 37 

A function 40, 41 
V function 40, 42 
/function 47,48 
, function 50 
® function 54 



alphameric keys 2 

ALREADY MARKED 112 

alternating sum 59 

and function a 40, 41 

and reduction 51 

APL language 1 

APL system command keywords 4 

arguments 17,31,90 

arithmetic function keys 4 

arithmetic operations 17 

assign a value 20 

assignment arrow 20 

attention key (see ATTN key) 

ATTN key 4,14,77,101 

average 56 



backspace key 4, 10, 11, 12 
BASIC/ APL switch 4 
black background 9 
black characters 9 
blank character 29 
branching 94 
brightness control 9 
built-in functions 1, 17, 62 



active workspace 107 
adding statements 82 
addition 17 
alpha keys 2 



calculator arrangement 4 
catenate function , 50 
ceiling function f 32 
character data 29 
CLEAR WS 4 
closing V 75 
CMD key 4,11 
column 25 
command keywords 4 
comparison tolerance DCT 
compress function / 47 
conditional branch 95 
conform 51 
consecutive numbers 34 
control panel 1 
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coordinate, acted on 48, 49 
correct a keying error 13 
correcting l<eying errors 10 
cursor 7 



deal function ? 46 

default device 112 

del symbol 74 

delete a character 1 1 

deleting statements 85 

diskette 107,108,110 

diskette drive 110 

display appearance 9 

display global variable names 1 1 1 

display registers/normal switch 4 

display screen 1 , 7 

displayed information 7, 8 

displaying a statement 86, 87 

displaying data 7 

displaying from a specific statement 86 

displaying the entire function 81 

displays user-defined function names 1 1 1 

division 17 

down arrow 9, 14, 75 



forward space key 4, 10, 11, 12 
function body 75 
function definition 74 
function definition mode 74 
function editing 80 
function execution stops 101 
function header 74, 87, 91 , 92 
functions 1 



global names 92 
global variable names 1 1 1 
grade down function "^ 33 
grade up function ^ 33 
greater than function > 37 
greater than or equal to function > 
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history 7 
HOLD key 4, 
HYP function 
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editing a function 80 

editing the function header 87 

empty vector 35, 53 

entering data 7 

entering data during function execution 

equal to function = 37 

error In the function 104 

error message 21, 77, 104 

escape from input requests 99 

EXECUTE key 4, 8, 14 

execution mode 74 

expand a vector or matrix 48 

expand function \ 48 

explicit result 91 



features 1 
files 107 
flashing line 7 
floor function L 32 
format files 112 
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index generator function \ 
index numbers 27 
index of a value 46 
index of function i 46 
index origin niO 114 
index value [I] 48, 49, 51 
indexed 33 
indexing 27 
indicator lights 1 
input 7 
input line 9 
insert a character 12 
insert blanks or zeros 48 
insert tape cartridge 107 
inserting statements 84 
instructions 74 
interactive functions 99 
internal checks 4 
internal precision 39 
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join two items 47 



keyboard 1 , 6 
keying errors 10 
keys 1 
keywords 4, 107 



labels 94 

larger of two numbers 44 

less than function < 37 

less than or equal to function < 37 

library 107 

local names 92 

local variables 94 

logarithm function ® 54 

logarithm of a number 54 

logical functions 40 

looping 77, 97 

lost lines 9 

lowercase alphabetic characters 15 

lowercase character mode 15 

L32 64 R32 switch 4, 9 



matrices 22 
matrix 25, 29 
maximum function f 44 
maximum reduction 60 
minimum function L 45 
minimum reduction 60 
minus 18 

minum reduction 59 
modifying a statement 86 
move display lines 9 
multiplication 17 



operating keys 4 

or function v 40, 42 

or reduction 6 

order of execution 21 , 22 

overstruck character 31 



parentheses 22 

place a stored workspace into the active 
workspace 1 1 2 
plus reduction 56 
portable computer 1 
power function * 12 
power up sequence 4 
printing precision QPP US 



quad input 98 
quad quote input 
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random number 34, 46 
reduction 56 
relational functions 37 
reopen function definition 
replace a character 10 
replacing statements 83 
request for input data 98 
reshape function 25 
restart sequence 4 
restart switch 4 
result variable 75, 80, 91 
reverse display switch 29 
roll function ? 34 
root of a number 20 
rounding off numbers 
row 25 
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32 



negative numbers 18 
negative sign 18 
not equal to function ^ 
numeric keys 4 
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SAFE switch 107 
scalar 29 
scroll down 75, 86 
scroll down key 4, 9 
scroll up 75, 86 
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scroll up key 4, 9 

selecting certain elements 47 

semicolon 28 

set up procedure 1 

shape 35 

shape function p 35 

shift key 2 

single quote characters 29 

smaller of two numbers 45 

sorting a vector 33 

special character combinations 4 

standard APL character mode 2 

standard typewriter 2 

state indicator 105 

statement number 75 

statements 74 

stop control feature 103 

stop execution 78 

stop feature 78 

stop processing 106 

storage media 107 

storing data 20 

strings of numbers 22 

subtraction 17 

suspended functions 78, 101 

switches 1,4 

system command keywords 4, 107 

system commands 107 

system variables 114 



unconditional branch 95 
up arrow 9, 14, 75 
user-defined functions 17, 74 



variable name 
variables 20 
vectors 22, 29 
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white background 9 

white characters 9 

write the active workspace to tape 



51 10 Model 1 1 
5110 Model 2 1 
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tables 22 
tape cartridge 107 
testing your function 

trace feature 78 

turn off stop 79 

turn off trace 79 
typewriter 2 
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